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

Question

Информатика

Бина

11 сентября, 19:36

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

+5

Ответы (1)

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

Урбана · Answer 1

Var a, n, m:integer;

begin

n:=0;

m:=0;

readln (a) ;

while a0 do

begin

if (a<0) then n:=n+1 else m:=m+1;

readln (a) ;

end;

writeln (n) ;

writeln (m) ;

end.