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

Всі умови | Умова: Дана дійсна матриця розміру 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.