Розв’язок задачі з Абрамова №389
Вер 09

Всі умови | Умова: Дана дійсна матриця розміру n × m, всі елементи якої різні. У кожному рядку вибирається елемент з найменшим значенням, потім серед цих чисел вибирається найбільше. Вказати індекси елемента зі знайденим значенням. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №389)
program Pr389; var a : array[1..100,1..100] of real; x, y, m, n : integer; First : Boolean; Min, Max : Real; MinX, MinY, MaxX, MaxY : Integer; begin readln(m,n); for y:=1 to n do for x:=1 to m do begin a[x,y]:=random(256); writeln(a[y,x]:5:2); end; First:=True; for y:=1 to n do begin min:=a[y,1]; minx:=1; miny:=y; for x:=1 to m do if (min>a[y,x]) then begin min:=a[y,x]; minx:=x; miny:=y; end; if (First)or(Maxthen begin Max:=min; MaxX:=minx; MaxY:=miny; First:=false; end; end; Writeln('Max element is ',max:5:2,' and indexes is X-',maxx,', Y-',maxy); readln; end.