дан массив из двадцати элементов, заполненный целыми числами от -15 до 45. определить количество четных элементов массива.

Random ВЕРНЫЙ и не надо со мной спорить! Там четко написано максимальное значение 45, минимальное значение 0-15=-15!! 

На счет второго замечания, я то согласен, но разницы и ТЕМ БОЛЕЕ ОШИБКИ из-за которой стоит поднимать панику нет!! 

Если человек. кторый пишет здесь ТАКОЕ ПРОСТОЕ задние не в состоянии самостоятельно его решить это значит ОДНО, что если его решение будет сложным, значит это не он сам решал!!

Program W;Var A:array [1..20] of integer;I,j:integer;

Begin

j:=0;For I:=1 to 20 do beginA[i]:=random(60)-15;If A[i] mod 2 =0 then inc(j); end;

Write(j);End.