В каждой строке массива выбирается максимальный элемент

[sergeyfsd]

Минимакс. Дан массив вещественных чисел A[M,N], где M,N<=10. В каждой строке массива выбирается максимальный элемент, затем среди найденных элементов - минимальный. Найти и напечатать этот элемент с указанием его индексов. Использовать StringGrid,

[Dj_smart]

1. Это скорее всего в помошь студентам.
2. Вот решение:

const
  nm=10;mm=10; // кол-ство элементов

var n,m,nmax,nmin,posx,posy:byte;  
     nas:array[1..nm,1..mm] of byte;
begin 
  nmin:=255; 
  for m:=1 to mm do begin
    nmax:=0;
    for n:= 1 to nm do begin
      if mas[n,m]>nmax then begin
        nmax:=mas[n,m];
        posx:=n;
      end;
    end;
    if nmax<nmin then begin
      nmin:=nmax;
      posx:=n; posy:=m;
    end;
  end;
end;

результат - posx и posy.
И дело в шляпе)))

[sergeyfsd]

спасибо большое =)