двухмерный массив...

[Vlad0n]

Помогите пожалуйста решить задачу, у меня она вызвала сложности.
Задана вещественная матрица размера N×M. Поменять местами столбцы матрицы содержащие две максимальные суммы элементов. Если таких столбцов несколько, то только последние из них.
Заранее спасибо.

[VIK_aka_TOR]

показывайте ваши попытки борьбы со сложностью
p.s. наработки...

[studen]

Делаем переменные x1 и х2.
Они отвечают за номер максимальных столбцов.
Присваиваем х1 = 1, х2 = 2.
В цикле просматриваем столбцы от 3 до N, если сумма больше или равна сумме столбцов с номерами х1 или х2, меняем номер меньшего из них на счетчик, если они равны(не х1 и х2, а суммы этих столбцов!), заменить меньший номер. После цикла меняем местами собственно столбцы. Код писать не буду, справишься сам.

[Vlad0n]

uses crt;
const n1 = 10; m1 = 10;
type mas = array[1..n1, 1..m1] of real;
var a: mas; i, j, n, m: integer;
    sum, max1, max2 : real;
    index_max1, index_max2 : integer;

begin
  randomize;
  writeln('введите кол-во строк');
  readln(n);
  writeln('введите кол-во столбцов');
  readln(m);
  writeln('введите элементы массива');
  for i := 1 to n do begin
    for j := 1 to m do
    begin
      {writeln('введите А[', i, ',', j, ']');
      readln(a[i, j]); }
      a[i, j] := Random(11);
      Write(a[i, j]:5:0,' ');
    end;
    WriteLn;
  end;

  index_max1 := 0;
  index_max2 := 0;
  for j := 1 to m do
  begin
    sum := 0;
    for i := 1 to n do
      sum := sum + a[i, j];

    if index_max1 = 0 then begin
      index_max1 := j;
      max1 := sum
    end
    else begin
      if index_max2 = 0 then begin
        index_max2 := index_max1;
        max2 := max1;
        index_max1 := j;
        max1 := sum
      end
      else { оба максимальных значения уже не пустые,
             сравним их с очередной суммой }
        if sum>=max1 then begin
          index_max2 := index_max1;
          max2 := max1;
          index_max1 := j;
          max1 := sum
        end
        else
          if sum>=max2 then begin
            index_max2 := j;
            max2 := sum
          end;
    end;
    writeln('сумма ', j, 'столбца = ', sum:5:0);

И то тут столбики с макс. суммами неправильно подсчитываются ИНОГДА.

[Serge_Bliznykov]

Vlad0n, узнаю свой код!

то тут столбики с макс. суммами неправильно подсчитываются ИНОГДА.

ну Вам и все карты в руки. Запускайте код, как только получите НЕВЕРНЫЙ результат, тут же его фиксируйте (снимайте, делайте скриншот, переписывайте значения на бумажку!), потом заполняйте матрицу по запомненному образцу, переходите к отладке, находите ошибку и устраняйте. Всё просто!


ДОБАВЛЕНО
нашел ситуацию, когда мой код работал некорректно.
попробуйте такой код:

  index_max1 := 0;
  index_max2 := 0;
  for j := 1 to m do
  begin
    sum := 0;
    for i := 1 to n do
      sum := sum + a[i, j];

    if index_max1 = 0 then begin
      index_max1 := j;
      max1 := sum
    end
    else begin
      if index_max2 = 0 then begin
        if sum>max1 then begin
          index_max2 := index_max1;
          max2 := max1;
          index_max1 := j;
          max1 := sum
        end
        else begin
          index_max2 := j;
          max2 := sum
        end
      end
      else { оба максимальных значения уже не пустые,
             сравним их с очередной суммой }
        if sum>=max1 then begin
          index_max2 := index_max1;
          max2 := max1;
          index_max1 := j;
          max1 := sum
        end
        else
          if sum>=max2 then begin
            index_max2 := j;
            max2 := sum
          end;
    end;
    writeln('сумма ', j, 'столбца = ', sum:5:0);
  end;
  writeln(' Максимальные суммы двух столбцов равны: ');
  WriteLn('    стобец № ',index_max1,' = ', max1:5:2);
  WriteLn('    стобец № ',index_max2,' = ', max2:5:2);

p.s. а зачем правила форума нарушать?!
На штрафы нарываетесь?! или что?!
Чем Вас ваша прошлая тема:
Массив...
не устроила?! :-[

[Vlad0n]

Ну потому что я не знаю, как вывести матрицу с замененными столбиками....
А за этот код спасибо, я очень благодарен.