Массивы

[елена1987]

Нужно создать двумерный массив, размером 5 х 7 (пять строк, семь столбцов). Заполнить его случайно целыми числами, в районе от 0 до 30. Вывести получившийся массив на экран. Затем нужно отсортировать строки массива так, чтобы первой шла строка, сумма элементов которой была меньше, чем остальных. И так далее, по возрастанию. Для сортировки удобно использовать, алгоритм сортировки отбором. Вот только в этом случае этот алгоритм сортировки уже будет сортировать не отдельные числа одномерного массива, а строки двумерного массива, исходя из суммы ее элементов.

Реализовать программу, выполняющую эту задачу

[Mad_Cat]

Реализовать программу, выполняющую эту задачу

продолжайте примерно так

1) мне нужно до такого-то числа
2) я заплачу столько-то денег
3) мои контакты для связи

[Serge_Bliznykov]

Сообщение от Mad_Cat

продолжайте примерно так

Mad_Cat, что случилось, я Вас не узнаю?!...

Отрывая тему, видел, что Вы ответили в ней. Был уверен, что увижу Ваш код == готовую программу.
Неужели альтруизм иссяк?!

[Mad_Cat]

Неужели альтруизм иссяк?!

мой альтруизм он такой)
просыпается если
1) задача легкая - менее 3 мин на решение
2) задача сложная, но интересная
3) такое я никогда не делал

а тут >3 мин, не сложная и не интересная, делал и я не знаю, что это за сортировка такая xD
ни одно из условий не выполнено ==>

repeat
Altruism.sleep();
until show_me_the_money = false;

[unbanned]

может быть имелась ввиду сортировка выбором?

const
  M = 5;
  N = 7;

var
  a: array[1..M, 1..N] of integer;
  s: array[1..m] of integer;
  i, j: integer;
  buf, min: integer;
  
begin
  randomize;
  writeln('Исходная матрица:');
  
  for i := 1 to m do
  begin
    
    for j := 1 to n do
    begin
      a[i, j] := random(31);
      s[i] := s[i] + a[i, j];
      write(a[i, j]:2, ' ');
    end;
    
    write('  ', 'S=', s[i]);
    writeln;
  end;
  
  for i := 1 to m - 1 do
  begin
    
    min := i;
    for j := i + 1 to m do
      if s[j] < s[min] then min := j;
    
    for j := 1 to n do
    begin
      buf := a[i, j];
      a[i, j] := a[min, j];
      a[min, j] := buf;
    end;
    
    buf := s[i];
    s[i] := s[min];
    s[min] := buf;
    
  end;
  
  writeln('Результат:');
  
  for i := 1 to m do
  begin
    for j := 1 to n do
      write(a[i, j]:2, ' ');
    write('  ', 'S=', s[i]);
    writeln;
  end;
  
end.