Заполнит массив случайными числами в интервале (20, 100) и подсчитать отдельно числа чётных и нечётных элементов
паскаль ​

Uses CRT;

const n = 10

var i,i1,i2:integer;

a: array [1 .. n] of integer;

Begin

Randomize;

  for i:=1 to n do

   a[i]:=random(80)+21;

i1 := 0;

i2 := 0;

   for i:=1 to n do

    begin

      if (a[i] mod 2=0) then

       i2+=1

        else i1+=1;

    end;

   Writeln('Количество нечётных =',i1);

   Writeln('Кол-во чётных =',i2);

end.

Объяснение: