Напишите программу. в которой осуществляется ввод целых чисел (ввод осуществляется до тех...

Question

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

Answer 1

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.

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