Question

Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 . Вывести на экран, посчитать количество нечетных чисел

Answer 1

Const N = 20;
Var i,k:integer; m:array [1..N] of integer;
Begin       
randomize;       
 for i:=1 to N do begin       
m[i]:=random(101) - 50;       
writeln(m[i]);       
end;       
for i:=1 to N do         
if m[i] mod 2 <> 0 then               
 inc(k);       
writeln('Kol-vo netchetnih = ',k);       
 readln;
end.