Консультация № 139433
07.06.2008, 12:42
0.00 руб.
0 1 1
Дана целочисленная прямоугольная матрица. Определить номер строки и столбца максимального элемента данной матрицы (оформить в виде процедуры).

Обсуждение

Неизвестный
07.06.2008, 13:25
общий
это ответ
Здравствуйте, Пухов Никита Евгеньевич!

Вопрос здесь уже "родной". Программа в приложении.

Приложение:
Program Pr139433; Uses CRT; Const N = 10; M = 12; { Размерность матрицы } Var i, j : Integer; Matr : Array[1..N, 1..M] of Integer; Procedure FindMax; var i, j : Integer; Min_i, Min_j: Integer; begin Min_i := 1; Min_j := 1; { индексы максимального элемента } for i := 1 to N do for j := 1 to M do if Matr[i, j] > Matr[Min_i, Min_j] then begin Min_i := i; Min_j := j; end; Write(‘Максимальный элемент: Matr[‘, Min_i, ‘,‘, Min_j); WriteLn(‘] = ‘, Matr[Min_i, Min_j]); end;Begin ClrScr; Randomize; WriteLn(‘Исходная случайно заполненная матрица:‘); WriteLn; for i := 1 to N do begin for j := 1 to M do begin Matr[i, j] := Random(1000); Write(Matr[i, j]:5); end; WriteLn; WriteLn; end; FindMax; ReadLn;End.
Форма ответа