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

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<br>  end;
writeln('Ответ: ',n)
end.