В массиве, заданном с клавиатуры, найти количество положительных и отрицательных элементов.
В массиве, заданном с клавиатуры, найти количество положительных и отрицательных элементов.
Гость
Ответ(ы) на вопрос:
ГостьVar a,n,m:integer;
begin
n:=0;
m:=0;
readln(a);
while a<>0 do
begin
if (a<0)then n:=n+1 else m:=m+1;
readln(a);
end;
writeln(n);
writeln(m);
end.
Не нашли ответ?
Похожие вопросы