Напишите программу. в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введеных положительных и отрицательных чисел.

Программу написать в текстовом редакторе блокнот

program z;

var a,i:integer; max:real;

begin

max:=0;

i:=0;

repeat writeln('Введите число'); read(a);

max:=max+a;

i:=i+1;

until a=0;

writeln('Сумма =',max);

writeln('Средние значение =',max/i);

end.

Если Вы хотите меня поблагодарить, сделайте ответ, как Лучший!

i = -101

while i <= -1:

i = i + 1

print (i)

if i == 0:

w = 100

while w >= 1:

w = w - 1

print (w)