Question

заполните массив случайными числами в диапазоне 20..100 и подсчитайте отдельно число элементов с чётными и нечётными значениями

Answer 1

var a:array [1..10] of integer;

i,k1,k2:integer;

begin

for i:= 1 to 10 do

a[i]:= Random(81)+20;

writeln(a);

for i:=1 to 10 do

if a[i] mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

writeln('Количество чётных элементов: ',k2);

writeln('Количество не чётных элементов: ',k1)

end.