Помогите сделать программу на PascalABC.
Дана целочисленная квадратная матрица A(N,N). Найдите сумму
элементов матрицы, расположенных в строках где элемент, расположенный на
главной диагонали больше элемента, расположенного на побочной диагонали.
Ответы
Ответ:
program matrix_sum;
const
N = 4; // размер матрицы
var
A: array[1..N, 1..N] of integer; // матрица
i, j: integer; // счетчики
sum: integer; // сумма элементов
begin
// инициализация матрицы
for i := 1 to N do begin
for j := 1 to N do begin
A[i, j] := random(10);
end;
end;
// вывод матрицы
for i := 1 to N do begin
for j := 1 to N do begin
write(A[i, j], ' ');
end;
writeln;
end;
// инициализация суммы
sum := 0;
// перебор элементов матрицы
for i := 1 to N do begin
// с
// проверка условия
if A[i, i] > A[i, N - i + 1] then begin
// добавление элементов строки к сумме
for j := 1 to N do begin
sum := sum + A[i, j];
end;
end;
end;
// вывод суммы
writeln('Сумма элементов: ', sum);
end.