напишите программу, которая заполняет массив случайными числами на отрезке [2;10] и считает отдельно количество четных и нечетных элементов.
pascal abc
очень прошу

const n=10;var a:array[1..n] of integer;k,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(9)+2; write(a[i],' '); end;writeln;k:=0;for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1;writeln('Четных: ',k,'  нечётных: ',n-k);end.Пример:2 2 4 7 9 10 9 4 5 4Четных: 6 нечётных: 4