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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.