Сортировка двухмерного массива по строкам. Расставить строки в порядке возрастания суммы их элементов

@Lizook · Регистрация: 03.09.2014

Паскаль. Нужно отсортировать двухмерный массив по строкам. Т.е строки выстроить в порядке возрастания. (Нужно посчитать сумму каждой строчки,и самая маленькая сумма(значит и строка) встанет на первое место.аналогично так и выстраивать в порядке возрастания.самая большая сумма(значит и строчка) будет стоять на последнем месте

@bormant · 09.10.2014, 10:19

Pascal

const
  m=8; n=8; W=4;
var
  a: array [0..m,1..n] of Integer;
  s: array [0..m] of Integer;
  i, j: Integer;
  Done: Boolean;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to m do begin
    {s[i]:=0;}
    for j:=1 to n do begin
      a[i,j]:=Random(100);
      s[i]:=s[i]+a[i,j];
      Write(a[i,j]:W);
    end; WriteLn(' |',s[i]:W+1);
  end;
  repeat
    Done:=True;
    for i:=1 to m-1 do
      if s[i]>s[i+1] then begin
        s[0]:=s[i]; s[i]:=s[i+1]; s[i+1]:=s[0];
        a[0]:=a[i]; a[i]:=a[i+1]; a[i+1]:=a[0];
        Done:=False;
      end;
  until Done;
  WriteLn('A''=');
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn(' |',s[i]:W+1);
  end;
end.

@Lizook 0 / 0 / 0 Регистрация: 03.09.2014 Сообщений: 51
		1
	Сортировка двухмерного массива по строкам. Расставить строки в порядке возрастания суммы их элементов 09.10.2014, 09:20. Показов 2174. Ответов 1 Метки нет (Все метки) Паскаль. Нужно отсортировать двухмерный массив по строкам. Т.е строки выстроить в порядке возрастания. (Нужно посчитать сумму каждой строчки,и самая маленькая сумма(значит и строка) встанет на первое место.аналогично так и выстраивать в порядке возрастания.самая большая сумма(значит и строчка) будет стоять на последнем месте 0

Опции темы

Сортировка двухмерного массива по строкам. Расставить строки в порядке возрастания суммы их элементов

Решение