ПОМОГИТЕ ПОЖАЛУЙСТА ПО ИНФОРМАТИКЕ! Даны десять вещественных чисел. Найти их среднее...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА ПО ИНФОРМАТИКЕ! Даны десять вещественных чисел. Найти их среднее арифметическое. запишите решение пожалуйста с помощью цикла repeat

Answer 1

Ответ:

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.