В заданной прямоугольной матрице найти наибольший и наименьший элементы и поменять местами строки, в которых они находятся.

[igormel]

Pascal

[Аватар]

Покажите свои наработки, конкретные вопросы и т.п. И вообще таких задачек на форуме конь не валялся, только поискать ))

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

var i,j,im,jm,imin,imax:integer;
    p:array[1..8,1..10] of integer;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(100);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   im:=1;
   jm:=1;
   For i:=1 to 8 do
      For j:=1 to 10 do
         If p[im,jm]>p[i,j] then
         begin
            im:=i;
            jm:=j;
         end;
   imin:=im;
   im:=1;
   jm:=1;
   For i:=1 to 8 do
      For j:=1 to 10 do
         If p[im,jm]<p[i,j] then
         begin
            im:=i;
            jm:=j;
         end;
   imax:=im;
   For j:=1 to 10 do
   begin
      im:=p[imin,j];
      p[imin,j]:=p[imax,j];
      p[imax,j]:=im;
   end;
   For i:=1 to 8 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:2,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.