Дан двумерный массив. Упорядочить его по возрастанию элементов первого столбца.

@xFORCEx · Регистрация: 25.04.2011

@Mr.Y · 16.05.2011, 16:25

Pascal

Const
 n = 6;
Var
 a:array[1..n,1..n] of integer;
 i,j,x:byte;
 k:integer;
Begin
 Randomize;
 For i:=1 to n do
  For j:=1 to n do
   a[i,j]:=random(101)-50;
 Writeln('Исходная матрица: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    write(a[i,j],' ');
   writeln;
  End;
 Writeln;
 Writeln('Упорядоченная матрица: ');
 For i:=1 to n do
  For j:=2 to n do
    If a[j,1] < a[j-1,1] then 
                          For x:=1 to n do
                           Begin
                            k:=a[j,x];
                            a[j,x]:=a[j-1,x];
                            a[j-1,x]:=k;
                           End;
 For i:=1 to n do
  Begin
   For j:=1 to n do
    write(a[i,j],' ');
   writeln;
  End;
End.

@xkampotx · 16.04.2012, 22:52

большое спасибо)
практически все, как я делал, кроме одного.
спасибо за помощь

@xFORCEx 0 / 0 / 0 Регистрация: 25.04.2011 Сообщений: 47
		1
	Дан двумерный массив. Упорядочить его по возрастанию элементов первого столбца. 16.05.2011, 15:55. Показов 2486. Ответов 2 Метки нет (Все метки) Дан двумерный массив. Упорядочить его по возрастанию элементов первого столбца. 0

@xkampotx 0 / 0 / 0 Регистрация: 16.04.2012 Сообщений: 9
	16.04.2012, 22:52	3
	большое спасибо) практически все, как я делал, кроме одного. спасибо за помощь 0

Опции темы

Дан двумерный массив. Упорядочить его по возрастанию элементов первого столбца.

Решение