Элемент, принимающий максимальное значение, зафиксировать его координаты

Найти первый по возрастанию строк

Обработка двумерных массивов.

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 чисел)

Дата добавления: 2014-01-14