Найти среднее арифметическое всех чисел - Pascal ABC

Формулировка задачи:

Ввести N различных чисел. Найти среднее арифметическое всех чисел. Составить две программы: с использование While и Repeat.

Решение задачи: «Найти среднее арифметическое всех чисел»

Листинг программы

var
    sum, x, i, n: LongInt;
begin
    Write('Введите n='); ReadLn(n);
    if (n > 0)
    then
    begin
        sum := 0;
        i := 0;
        while (i < n) do
        begin
            Write('Введите ', i + 1, ' число: ');
            ReadLn(x);
            Inc(sum, x);
            Inc(i);
        end;
        WriteLn('AVR=', (sum/n):0:2);
    end
    else
        WriteLn('Ошибка! Получены неверные данные!');
end.

Объяснение кода листинга программы

В начале кода объявляются переменные sum, x, i и n. Переменная sum инициализируется значением 0, переменная x инициализируется значением 0, переменная i инициализируется значением 0. Переменная n инициализируется значением, введенным пользователем.
Затем выполняется проверка: если значение переменной n больше 0, то выполняется блок кода внутри блока if.
Внутри блока if инициализируются переменные sum и i. Переменная sum инициализируется значением 0, а переменная i инициализируется значением 0.
Затем начинается цикл while, который выполняется, пока значение переменной i меньше значения переменной n.
Внутри цикла while выполняется следующая последовательность действий:
- Пользователю предлагается ввести число.
- Число считывается из ввода пользователя и сохраняется в переменной x.
- Значение переменной sum увеличивается на значение переменной x.
- Значение переменной i увеличивается на 1.
После завершения цикла while выводится строка 'AVR=' с результатом вычисления (сумма/n).
Если значение переменной n меньше 0, то выводится сообщение об ошибке.