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.