Вычислить среднее арифметическое чисел - Turbo Pascal

Формулировка задачи:

пусть дано n вещественных чисел, которые вводятся последовательно по одному. вычислить среднее арифметическое. результат вывести на экран через "repeat". если можно, распишите все с начала и до конца, вместе с описанием переменных) спасибо)

Код к задаче: «Вычислить среднее арифметическое чисел - Turbo Pascal»

textual
S:=0;
i:=0;
Repeat
  Inc(i);
  Readln(A);
  S:=S+A;
Until i=N;
Writeln(S/N:6:4);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ