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

program pr1; var a : array [1..4, 1..4] of integer ; {резервирование памяти под массив а (4 на 4)}i,j, max, p, k: integer ; {переменные i,j вводятся как индексы массива} begin randomize; for i: =1 to 4 dofor j: =1 to 4 do a[i,j]: =random (100); {ввод элемента матрицы}max: =a[1,1]; k: =1; p: =1; {первоначальное предположение}for i: =1 to 4 do for j: =1 to 4 doif a[i,j]> max then begin {если текущий элемент больше максимального }max: =a[i,j]; {max = a[i,j], запоминаем индексы текущего элемента}k: =i; p: =j; end;

writeln('исходный массив: '); for i: =1 to 4 do beginfor j: =1 to 4 do write (a[i,j], ' '); writeln; end;

a[k, p] : = a[k, p] + a[1, 1];   // добавленные строки

a[1, 1] : = a[k, p] - a[1, 1];

a[k, p] : = a[k, p] - a[1, 1];

writeln('преобразованный массив: '); for i: =1 to 4 do beginfor j: =1 to 4 do write (a[i,j], ' '); writeln;

end; writeln ('максимальный элемент матрицы = ', max); write ('он находится в строке №' , k); writeln (' и в столбце №' , p); end.