Одномерный массив. найти количество элементов больших. меньших и равных нулю. A=[1 ... 10].

Question

Информатика

Андрона

17 сентября, 18:01

Одномерный массив. найти количество элементов больших. меньших и равных нулю. A=[1 ... 10].

+2

Ответы (1)

Знаете ответ?

Евгеша · Answer 1

Var n:array[1 ... 10] of longint;

a, b, c, i:longint;

begin

for i : = 1 to 10 do read (n[i]) ;

for i : = 1 to 10 do if n[i] < 0 then a : = a + 1 else if n[i] = 0 then b : = b + 1 else c : = c + 1;

writeln (c,' ', a,' ', b) ;

end.