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

Question

Фёдор Фомин

Информатика

7 февраля, 10:32

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Ancha · Answer 1

Program zt1;

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.