заполнить массив случайными числами в интервале [20;100] и подсчитать отдельно число четных и нечетных элементов

1

Ответы и объяснения

2013-02-06T20:43:10+04:00

 

program Mas;
var i,ne,ch,n:integer;
a:array [1..1000] of integer;
begin
read(n);
randomize;

for i:=1 to n do begin
a[i]:=random(80)+21;
write(a[i],' ');//Распечатка массива, увидешь правильно ли программа выполняет функци                         
end;
for i:=1 to n do
begin
if a[i] mod 2=0 then
ch:=ch+1
else ne:=ne+1;
end;
writeln;
writeln('Нечетные=',Ne);
writeln('Четные=',Ch);
end.