|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Составить программу на Delphi
составить программу на Delphi для нахождения максимального и минимального элемента двухмерного целочисленного массива из 24 элементов - Это всё что было в задании
Последний раз редактировалось Admin, 10.06.2021 в 19:07. |
#2
|
|||
|
|||
Хм, а в чем проблема?
Код:
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; |