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

Question

Информатика

Зосима

25 мая, 04:21

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

+3

Ответы (1)

Знаете ответ на вопрос?

Арсений · 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.