Программу которая будет вводить целые числа до тех пор пока не будет введен нуль и определение

Question

Информатика

Масрур

14 декабря, 12:58

Программу которая будет вводить целые числа до тех пор пока не будет введен нуль и определение

+3

Ответы (1)

Знаете ответ на вопрос?

Абульвап · 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.