заполнить массив случайными числами в интервале [20; 100] и подсчитать отдельно число четных и нечетных элементов

Var i, ne, ch, n:integer;

a:array of integer; / / объявление динамического массива

begin

write ('Введите длину массива : ') ;

readln (n) ;

randomize;

a: = new integer[n+1]; / / установка размера (n+1) динамического массива

for i:=1 to n do

begin

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

write (a[i],' ') ; / / Вывод на экран полученного массива

if odd (a[i]) then inc (ne) ; / / odd () - функция, определяющая нечетность числа. Возвращает значение True, если число нечетное

end; / / inc () - функция инкремент - увелечения на 1.

ch: = n-ne;

writeln;

writeln ('Нечетные=', Ne) ;

writeln ('Четные=', Ch) ;

end.