Question

С клавиатуры вводится целое число N. Затем вводится N целых чисел. Перед вводом каждого из чисел должно появляться сообщение вида "Введите i-е число", где i -номер очередного числа. Найдите среднее арифметическое вводимых чисел.

Answer 1

var

  sum, n, i, tmp : integer;

begin

  readln (n);

  sum := 0;

  for i := 1 to n do

  begin

    write ('Введите ', i, '-ое число');

    readln (tmp);

    sum := sum + tmp;

  end;

  writeln (sum / n);

end.