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

Question

Информатика

Куба

5 июня, 03:10

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

+4

Ответы (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.