Дано n случайных чисел найти количество всех чисел которые являются отрицательными

Ответ:

Разъяснение:

var

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

 i, n:integer;

 count:integer;

begin

 writeln('Input n = ');

 readln(n);

 for i:=1 to n do begin

   writeln('Input a[', i, '] = ');

   readln(a[i]);

 end;

 count:=0;

 for i:=1 to n do begin

   if ((a[i]lt;0) and ((a[i] mod 2) = 0)) then count:=count+1;

 end;

 writeln(count);

 readln;

end.