Найти максимальный среди элементов тех строк таблицы, которые упорядочены по неубыванию - Free Pascal
Формулировка задачи:
Помогите с задачей, пожалуйста!
Нужно написать подпрограмму, а конкретно - процедуру, которая находила бы максимальный среди элементов тех строк таблицы которые упорядочены по неубыванию. Искала подобное, но именно подпрограмму не нашла.
Решение задачи: «Найти максимальный среди элементов тех строк таблицы, которые упорядочены по неубыванию»
textual
Листинг программы
type
TMatrix = array [1..10,1..5] of Integer;
{ поиск max среди упорядоченных по неубыванию строк }
procedure Max1(const a: TMatrix; var max: Integer);
var i, j, mm: Integer;
begin
max:=Low(max);
for i:=Low(a) to High(a) do begin
mm:=a[i,High(a[Low(a)])]; j:=High(a[Low(a)]);
while (j>=2) and (a[i,j-1]<=a[i,j]) do Dec(j);
if (j<2) and (max<mm) then max:=mm;
end;
end;