11.06.2021, 05:24
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Хм, а в чем проблема?
Код:
procedure FindMinMax(A : Array Of Array Of Integer; var iMin, iMax : Integer);
var
I, J : Integer;
begin
iMin := A[Low(A),Low(A[Low(A)]]);
iMax := iMin;
For I := Low(A) To High(A) Do
For J := Low(A[i]) To High(A[i]) Do
Begin
If (A[I,J] < iMin) Then iMin := A[I,J];
If (A[I,J] > iMax) Then iMax := A[I,J];
End;
end;
|