Составить программу. вводить последовательно пока средне арифметическое не будет равно10

Question

Информатика

Екатерина

1 февраля, 09:38

Составить программу. вводить последовательно пока средне арифметическое не будет равно10

+3

Ответы (1)

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

Нюрася · Answer 1

Program ex1;

var a, sum, k:integer;

sr:real

begin

do

begin

writeln ("Введите число") ;

readln (a) ;

sum:=sum+a;

k:=k+1;

sr:=sum/k;

end;

while (sr10) ;

writrln ("Программа выполнено успешно!") ;

end.