pascal massivy...

[DRGNforce]

(Знатоки Паскаля поможете??) Дана вещественная матрица размером n x m, все элементы которой различны. Найти скалярное произведение строк, в которых находится наибольший и наименьший элементы матрицы соответственно.

[Chudo4258]

min:=a[1,1];
max:=a[1,1];
i_min:=1;
i_max:=1;
for i:=1 to n do 
 for j:=1 to m do
  begin
   if a[i,j]<min then begin
                            min:=a[i,j];
                            i_min:=i;
                          end;
   if a[i,j]>max then begin
                            max:=a[i,j];
                            i_max:=i;
                          end;
  end;

s:=0;
for j:=1 to m do
 S:=S+a[i_min,j]*a[i_max,j];