Задачи по Pascal. Найти среднее арифметическое массива.

Условие задачи : Задан массив А, состоящий из n чисел. Найти среднее арифметическое его элементов. Элементы вводятся с клавиатуры.

Сложность : легкая .

Данную задачу мы будем решать на основе этой (ссылка), но там мы искали просто сумму, здесь же нам надо в добавок найти среднее арифметическое всех этих чисел :

Начнем решать задачу.

Первое что мы сделаем мы создадим свой тип данных как и зачем читайте (тут) :

type
   massiv = array [1..1000] of integer;

Дальше уже объявим переменные которые нам понадобятся :

var
   i,n,summa : integer;
   srednee : real;
   A : massiv;

Для чего они нужны :

i — для цикла, когда мы будем заполнять массив

n — кол-во элементов

summa — сумма элементов массива

…дальше понятно без слов ))

Теперь просим пользователя ввести кол-во элементов , а сумме присваиваем 0, т.к. для корректной работы с переменной нам нужно присвоить ей какое-то значение.

write('Введите кол-во элементов : '); readln(n);

summa := 0; // начальное значение 

Дальше делаем цикл в нем мы просим пользователя ввести число и сразу прибавляем к текущей сумме :

    for i:=1 to n do
        begin
            write('Введите ',i, ' элемент: '); readln(A[i]);
            summa := summa + A[i];
        end;

Ну и всё, осталось только подсчитать среднее арифметическое, т.е. мы сумму делим на количество элементов (n)

srednee := summa / n ;

Весь код программы :

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.