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

Добрыйдемон13 Добрыйдемон13    3   01.04.2019 10:20    0

Ответы
sonyapastuxova sonyapastuxova  28.05.2020 05:04

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика