Составить программу, которая вычисляет сумму элементов главной диагонали в двумерном массиве размерности 3 х3. Заполнить массив целыми случайными числами из диапазона от 0 до 15.

program zz1;

var

i, j, k: integer;

b: array[1 ... 3, 1 ... 3] of integer;

begin

for i : = 1 to 3 do

begin

for j : = 1 to 3 do

begin

b[i, j] : = random (16); / / заполнение матрицы случайными числами и вывод на экран

write (b[i, j]:3);

end;

writeln;

end;

k : = 0;

for i : = 1 to 3 do

begin

for j : = 1 to 3 do

begin

if j = i then k : = k + b[i, j]; / / проверяем, стоит ли элемент на главной диагонали, если да, то прибавляем его к сумме

end;

end;

write (' сумма элементов на главной диагонали = ', k); / / вывод ответа

end.