Напишите программу на Паскале.Дан целочисленный квадратный массив 10x10.Найти сумму максимальных элементов из каждой строки.Предпологается, что в каждой строке такой элемент единственный

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

program SumMaxElements;
const
N = 10;
type
Matrix = array[1..N, 1..N] of integer;
var
A: Matrix;
i, j, maxElement, sumMaxElements: integer;
begin
// Заполнение массива случайными числами
randomize;
for i := 1 to N do
for j := 1 to N do
A[i, j] := random(100);

// Вывод исходного массива
writeln('Исходный массив:');
for i := 1 to N do
begin
for j := 1 to N do
write(A[i, j]:4);
writeln;
end;

// Поиск максимальных элементов в каждой строке и их суммирование
sumMaxElements := 0;
for i := 1 to N do
begin
maxElement := A[i, 1];
for j := 2 to N do
if A[i, j] > maxElement then
maxElement := A[i, j];
sumMaxElements := sumMaxElements + maxElement;
end;

writeln('Сумма максимальных элементов в каждой строке: ', sumMaxElements);
end.