Написать программу на языке паскаль которая находит сумму элементов двумерного массива

Предыдущий
вопрос Следующий
вопрос

Пример программы на языке Паскаль, которая находит сумму элементов двумерного массива:

program SumOfArrayElements;
const
ROWS = 3;
COLS = 3;
var
arr: array[1..ROWS, 1..COLS] of Integer;
i, j, sum: Integer;
begin
sum := 0;
// Заполнение массива случайными числами и вывод его на экран
for i := 1 to ROWS do
begin
for j := 1 to COLS do
begin
arr[i, j] := Random(10); // случайное число от 0 до 9
Write(arr[i, j]:4);
sum := sum + arr[i, j];
end;
Writeln;
end;
Writeln('Сумма элементов массива: ', sum);
end.

Этот код создает двумерный массив arr размером 3x3, заполняет его случайными числами от 0 до 9 и находит и выводит сумму всех его элементов.