ЗАДАЧА ПОМОГИТЕ

[min@y™]

Отож!
Я тут начал мову изучать, на всякий случай. Вдруг 404 нас оккупирует до самой чукотки.

[Stilet]

Оставлю автору для копипастинга:

program Project1;
const
   a:array[1..5,1..5] of double=(
      (0.31, 2.14, 7.6, 14.8, 5.3),
      (5.7 ,4.8, 6.1, 4.1, 9.6   ),
      (0.88, 5.6, 7.83, 5.1 ,8.76  ),
      (7.18, 9.36, 8.11, 8.99, 1.74  ),
      (2.14, 8.15, 7.21, 3.45, 6.9     )
   );
var l:double; i,j,xm,ym:integer;
  //отыскать наибольший элемент матрицы А
begin
  xm:=1;ym:=1;
  for i:=1 to 5 do begin
    for j:=1 to 5 do begin
     if a[i,j]>a[xm,ym] then begin xm:=i;ym:=j; end;
     write(a[i,j]:10:2);
    end; writeln;
  end;writeln;
  //строку в котором находится наибольший элемент поменять местами со следующей строкой
  if ym<>5 then begin
   for i:=1 to 5 do begin
    l:=a[ym,i];a[ym,i]:=a[ym+1,i];a[ym+1,i]:=l;
   end;
  end;
  for i:=1 to 5 do begin
    for j:=1 to 5 do begin
     write(a[i,j]:10:2);
    end; writeln;
  end;
  readln;
end.

Все равно не спасет...