ПОМОГИТЕ ПОЖАЛУЙСТА ПО ИНФОРМАТИКЕ!
Даны десять вещественных чисел. Найти их среднее арифметическое.
запишите решение пожалуйста с помощью цикла repeat
Ответы
Ответ дал:
0
Ответ:
program z1;
var i:integer;
a,s:real;
begin
i:=0;
s:=0;
repeat
i:=i+1;
write ('Введите ',i:2,' число ');
read (a);
s:=s+a
until i=10;
writeln('Среднее арифметическое ',s/10)
end.
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад