Дан массив L(n,n). Найти максимальный среди отрицательных элементов и сумму элементов на главной диагонали.
Написать программу в Pascal,пожалуйста

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

Программа на Pascal:

program MaxNegativeAndDiagonalSum;
const
n = 3;
type
TMatrix = array[1..n, 1..n] of integer;
var
L: TMatrix;
i, j, maxNegative, diagonalSum: integer;
begin
maxNegative := -9999;
diagonalSum := 0;
// Инициализация массива L
writeln('Введите элементы массива L:');
for i := 1 to n do
begin
for j := 1 to n do
begin
write('L[', i, ',', j, ']: ');
readln(L[i, j]);
// Поиск максимального отрицательного элемента
if (L[i, j] < 0) and (L[i, j] > maxNegative) then
maxNegative := L[i, j];
// Сумма элементов на главной диагонали
if i = j then
diagonalSum := diagonalSum + L[i, j];
end;
end;
writeln('Максимальный отрицательный элемент: ', maxNegative);
writeln('Сумма элементов на главной диагонали: ', diagonalSum);
end.

Программа сначала инициализирует массив L, затем находит максимальный отрицательный элемент и суммирует элементы на главной диагонали.