Question

дан массив из 20 элементов вводиться с клавиатуры , подсчитать количество отрицательных элементов

Answer 1

var
  i,n:integer;
  a:array[1..20]of integer;
begin
for i:=1 to 20 do
  begin
  readln(a[i]);
  if a[i]<0 then n:=n+1
  end;
writeln('Ответ: ',n)
end.