Решение задачи в Object Pascal
Составить программу на языке программирования Object Pascal для решения следующей задачи. Дана целочисленная матрица размером 3х3. Определить сумму элементов главной диагонали и произведение элементов побочной диагонали. Можно написать программу и набрать ее текст в текстовом редакторе. Важно видеть код программы и логику решения задачи . Заранее спасибо!!!!
const
n = 3;
var
b: array [1..n, 1..n] of integer;
i, j: byte;
s: integer;
begin
Writeln('Исходная матрица:');
for i := 1 to n do
begin
for j := 1 to n do
begin
b[i, j] := Random(9) + 1;
if i = j then
Inc(s, b[i, j]);
Write(b[i, j]:3);
end;
Writeln;
end;
Writeln('Сумма элементов главной диагонали = ', s);
Writeln('Полученная матрица:');
for i := 1 to n do
b[i, n - i + 1] := b[i, i];
for i := 1 to n do
begin
for j := 1 to n do
Write(b[i, j]:3);
Writeln
end;
end.