Как найти среднее арифметическое элементов в непустом списке?

Question

[Maks Kulikov]

Не могу никак написать функцию чтобы найти среднее арифметическое элементов списка в Паскаль. Подскажите, как это можно реализовать. Буду очень благодарен!

Comments

[Модератор]

Maks Kulikov дорогой пользователь, настоятельно рекомендуем еще раз обратить самое пристальное внимание на п. 3.1 регламента работы сервиса (и, в особенности, на его последний абзац).
В противном случае ваши вопросы будут удаляться по причине тег-спама, а систематические нарушения приведут к блокировке учетной записи.

[Maks Kulikov]

Модератор, извините

Answer 1

[Петр Слободянюк]

uses crt;
 
type
    massiv = array [1..1000] of integer;
 
var
    i,n,summa : integer;
    srednee : real;
    A : massiv;
begin
    clrscr;
    write('Введите кол-во элементов : ');readln(n);
 
    summa := 0 ;
    for i:=1 to n do
        begin
            write('Введите ',i, ' элемент : '); readln(A[i]);
            summa := summa + A[i];
        end;
    srednee := summa / n;
 
    writeln('Среднее арифметическое ', srednee:3:2); // округляем 
 
    readln;
end.

Comments

[Maks Kulikov]

это массив, мне нужен списком