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.