Question

Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы, используя операторы цикла While, Repeat и For.

Answer 1

program AverageWhile;
var   i, n, sum: integer;   avg: real;
begin   sum := 0;   i := 1;
  while i <= 10 do   begin     write('Введите число ', i, ': ');     readln(n);     sum := sum + n;     i := i + 1;   end;
  avg := sum / 10;   writeln('Среднее арифметическое: ', avg);
  readln; end.  
program AverageRepeat;
var   i, n, sum: integer;   avg: real;
begin   sum := 0;   i := 1;
  repeat     write('Введите число ', i, ': ');     readln(n);     sum := sum + n;     i := i + 1;   until i > 10;
  avg := sum / 10;   writeln('Среднее арифметическое: ', avg);
  readln; end.  
program AverageFor;
var   i, n, sum: integer;   avg: real;
begin   sum := 0;
  for i := 1 to 10 do   begin     write('Введите число ', i, ': ');     readln(n);     sum := sum + n;   end;
  avg := sum / 10;   writeln('Среднее арифметическое: ', avg);
  readln; end.