Элемент, принимающий максимальное значение, зафиксировать его координаты.
Найти первый по возрастанию строк
Обработка двумерных массивов.
Begin
По столбцам
Begin
По строкам
Вывод элементов матрицы на экран
Вывод элементов матрицы
FOR i:=1 TO 5 DO
FOR j:=1 TO 3 DO
WRITE (, A[i, j]:3);
WRITELN;
end;
FOR j:=1 TO 3 DO
FOR i:=1 TO 5 DO
WRITE (,A[i, j]:3);
WRITELN;
end;
Примеры: (фрагменты программ)
Сформировать матрицу:
n = m =3
max:=a[1, 1]; p:= 1; q:= 1;
for i:=1 to 6 do
for j:=1 to 4 do
if a[i, j] > max then
begin
max:= a[i, j]; {это первый max }
p:= i; q:= j; {индексы элемента}
end;
Если поставить знак >= , то получим координаты последнего max (если в матрице несколько одинаковых max чисел)