Question

Помогите написать программу в Pascal!

Answer 1

1. Современное решение

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal('Вводите:',ReadInteger('Кол-во чисел?'));
  Writeln('Ср.арифметическое равно ',a.Average)
end.

Пример
Кол-во чисел? 5
Вводите: 3.18 4.7 2.94 4 6.2
Ср.арифметическое равно 4.204

2. Школьный вариант в стиле ТурбоПаскаль 1983г.

const
  nn=100;
var
  n,i:integer;
  a:array[1..nn] of real;
  s:real;
begin
  Write('Кол-во чисел? ');
  Read(n);
  Write('Вводите: ');
  for i:=1 to n do begin
    Read(a[i]);
    s:=s+a[i]
    end;
  Writeln('Ср.арифметическое равно ',s/n)
end.