Дан целочисленный массив размера N. Найти количество отрицательных элементов массива.

Question

Дан целочисленный массив размера N. Найти количество отрицательных элементов массива.

Answer 1

Program minus;
Var
A: array(1..100) of longint;
I:integer;
Begin
For i:=1 to length(A) do begin
If A[i] < 0 then writeln(A[i]);
End;
End.

Comments

С телефона немогу изменить. вместо writeln(A[i] ) напиши b:=b+1. и в конце программы выведи b

---

writeln( пишет не соответствие типа)