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

Question

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

yiliamasegorova · Answer

Var a,n,m:integer;beginn:=0;m:=0;readln(a);while a 0 dobeginif (a 0)then n:=n+1 else m:=m+1;readln(a);end;writeln(n);writeln(m);end....