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

Moderator

var i,ne,ch,n:integer;      a:array of integer; //объявление динамического массиваbeginwrite('Введите длину массива :');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.