Определить сумму и среднее арифметическое всех элементов матрицы - Pascal

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

Ребят помогите написать задачу по Паскалю. Буду очень признателен. Заранее спасибо) Задача: Дана матрица А(N*N), состоящая из целых чисел. Определить сумму и среднее арифметическое всех ее элементов.

Решение задачи: «Определить сумму и среднее арифметическое всех элементов матрицы»

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

{$MODE TP}
var
    a: Array[Byte, Byte] Of ShortInt;
    i, j, n: Byte;
    sum: Integer;
begin
    repeat
        Write('Input N(>0)=');
        ReadLn(n);
    until (n > 0);
    sum := 0; Randomize();
    for i := 0 to n - 1 do
    begin
        for j := 0 to n - 1 do
        begin
            a[i, j] := Random(199) - 99;
            Inc(sum, a[i, j]);
            Write(a[i, j]:4);
        end;
        WriteLn;
    end;
    WriteLn('sum=', sum);
    WriteLn('avr=', (sum / n / n):0:3);
end.

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

Объявление переменных:
- a: двумерный массив, типа ShortInt, размерности Byte x Byte.
- i, j, n: переменные типа Byte для использования в циклах и хранения размерности матрицы.
- sum: переменная типа Integer для хранения суммы элементов матрицы.
Повторение ввода размерности матрицы:
- В цикле repeat-until пользователю предлагается ввести значение переменной n до тех пор, пока оно не станет больше 0.
Инициализация и заполнение матрицы:
- Начальное значение переменной sum устанавливается равным 0.
- Используется команда Randomize() для инициализации генератора случайных чисел.
- Далее, вложенными циклами заполняется массив a случайными значениями от -99 до 99, при этом каждый элемент добавляется к переменной sum, и затем выводится на экран.
Вычисление суммы и среднего арифметического:
- Выводится значение переменной sum.
- Вычисляется среднее значение (average) путем деления суммы всех элементов матрицы на квадрат размерности матрицы (n*n), и результат выводится на экран с точностью до трех знаков после запятой.