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

180

182

Посмотреть ответы 2

Ответы на вопрос:

таисия85

Другие предметы

4,7(63 оценок)

Uses crt;
Type MyType = real;
Var
  n,m,i,j,xi,xj: byte;
  a: array[1..100,1..100] of MyType;

Procedure Stroka(i,i1: byte);
  var
    j: byte;
    buf: MyType;
  begin
    For j:=1 to m do
      begin
        buf:=a[i,j];
    a[i,j]:=a[i1,j];
    a[i1,j]:=buf
      end
  end;

Procedure Stolb(j,j1: byte);
  var
    i: byte;
    buf: MyType;
  begin
    For i:=1 to n do
      begin
        buf:=a[i,j];
    a[i,j]:=a[i,j1];
    a[i,j1]:=buf
      end
  end;

Begin
  Clrscr;
  Write('n=');
  Readln(n);
  Write('m=');
  Readln(m);
  Randomize;
  For i:=1 to n do
    begin
      For j:=1 to m do
         begin
           a[i,j]:=random*20-5;
           Write(a[i,j]:5:1);
         end;
      Writeln;
    end;
  Writeln;

  xi:=1; xj:=1;
  For i:=1 to n do
  For j:=1 to m do
    If a[i,j] > a[xi,xj] then
      begin
     xi:=i;
     xj:=j
      end;

  While xi < n do
    begin
      Stroka(xi,xi+1);
      Inc(xi)
    end;
  While xj > 1 do
    begin
      Stolb(xj,xj-1);
      Dec(xj)
    end;

  For i:=1 to n do
    begin
      For j:=1 to m do write(a[i,j]:5:1);
      Writeln
    end;
End

gores7master

Другие предметы

4,7(81 оценок)

человек находится в покое : автобус и пассажир

Объяснение:

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Другие предметы

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.