Для матрицы действительных чисел - Pascal ABC

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

Для матрицы действительных чисел вычислить сумму и количество элементов в диапазоне [2,5].

p.s. Решите пожалуйста, мне нужно уже на завтра.

Решение задачи: «Для матрицы действительных чисел»

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

const
m = 5;
var a:array[1..m,1..m] of real;
i, j, k: integer;
sum :real;
begin
writeln(' ');
for i:=1 to m do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(10) - random(10)+random;
        write(a[i,j]:5:2);
        end;
    writeln;
    end;
sum:=0;
for i:=1 to m do
    for j:=1 to m do
        begin
        if (a[i,j] <= 5) and (a[i,j] >= 2) then
            begin
            inc(k);
            sum:=sum+a[i,j];
            end;
        end;
writeln('Количество элементов: ',k:3,', сумма элементов: ',sum:5:2);
end.

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

В начале кода объявляются все необходимые переменные: m (количество строк в матрице), a (массив для хранения чисел), i, j, k (переменные для циклов), sum (сумма чисел).
Затем идет строка, которая выводит пробел.
Далее начинается внешний цикл, который проходит по строкам матрицы. Каждая итерация этого цикла обрабатывает одну строку.
Внутри внешнего цикла начинается внутренний цикл, который проходит по столбцам матрицы. Каждая итерация внутреннего цикла обрабатывает один столбец.
Внутри внутреннего цикла вычисляется случайное число от 2 до 9 (a[i,j]:=random(10) — random(10)+random;) и записывается в соответствующий элемент матрицы.
После завершения внутреннего цикла для каждой строки выводится значение элемента матрицы с помощью функции write.
После завершения внешнего цикла вычисляется сумма всех элементов матрицы, для этого используется цикл for.
Выводится количество элементов матрицы и их сумма с помощью функции write.
Конец программы.