Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива - Turbo Pascal

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

Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

Решение задачи: «Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива»

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

var
A:array [1..3,1..3] of integer;
i,j,sum: integer;
 
begin
for i:=1 to 3 do
    for j:=1 to 3 do
    readln(A[i,j]);
for i:=1 to 3 do begin
    writeln;
    for j:=1 to 3 do
    write(A[i,j],' ');
    end;
sum:=0;
for i:=1 to 3 do
    for j:=1 to 3 do
    sum:= sum + A[i,j];
writeln('Summa = ',sum);
end.

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

Создается переменная array типа array [1..3,1..3] of integer;, которая представляет собой двумерный массив размером 3x3.
Создаются три переменные i, j и sum типа integer. Переменная i будет использоваться для обхода первого измерения массива, а переменная j - для обхода второго измерения.
В цикле for с начальным значением i=1 и конечным значением i=3 происходит ввод данных в массив. Для этого используется цикл for с начальным значением j=1 и конечным значением j=3. В каждой итерации цикла значение переменной A[i,j] считывается с клавиатуры и сохраняется в соответствующий элемент массива.
После ввода данных происходит вывод содержимого массива на экран. Для этого используется цикл for с начальным значением i=1 и конечным значением i=3. В каждой итерации цикла значение переменной A[i,j] выводится на экран через функцию write().
Затем происходит вычисление суммы всех элементов массива. Для этого используется еще один цикл for с начальным значением i=1 и конечным значением i=3. В каждой итерации цикла переменная sum увеличивается на значение элемента массива с индексами i и j.
Наконец, выводится результат - сумма всех элементов массива.