Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Напишите программу в Паскале
Вычисление среднего арифметического значения последовательности дробных чисел. Количество чисел задается во время работы программы.

Ответ оставил Гость

Var N,i : Integer;
a,s : Real;
Begin
  Write(Количество чисел: ); Readln(N);
  s:=0;
  For i:=1 to N do
  Begin
   Write(Введите число №,i, : );Readln(a);
   s:=s+a;
  end;
  Writeln(Ср.арифм. = ,s/N:8:4);
end.