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

Question

Информатика

Антоша

10 февраля, 02:50

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

+5

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