Question

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

Answer 1

var a:array [1..M] of integer;

      i, p, k, n, M:integer;

begin

p:=0;

k:=0;

n:=0;

readln(M);

for i:=1 to M do

readln (a[i]);

for i:=1 to M do

if a[i]>0 then p:=p+1 else

    if a[i]<0 then k:=k+1 else n:=n+1;

writeln (p, k, n);

end.