заполнить массив случайными числами в интервале [20;100] и подсчитать отдельно число четных и нечетных элементов
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
