ПЕР
матрица: РЯД N, M ИЗ ЦЕЛ;
мин, макс, сч1, сч2, строка, столбец: ЦЕЛ;
УКАЗ
мин := матрица[0, 0]; макс := мин;
строка := 0; столбец := 0;
ОТ сч1 := 0 ДО N - 1 ВЫП
ОТ сч2 := 0 ДО M - 1 ВЫП
ЕСЛИ матрица[сч1, сч2] > макс ТО макс := матрица[сч1, сч2]
АЕСЛИ матрица[сч1, сч2] < мин ТО
мин := матрица[сч1, сч2];
строка := сч1; столбец := сч2
КОН
КОН
КОН;
ОТ сч1 := 0 ДО M - 1 ВЫП
матрица[строка, сч1] := макс
КОН