Сортирока массива

[Greschnik]

Сортировка одномерного и двумерного массивов методом пузырька и методом выбора.Размер массива вводить с клавиатуры, вывод массива построчно и заполнение массива рандомно, т.е случайным образом

Одномерный массив(метод пузырька) правильно?

Program Sort;
Const
Nmax = 100;
Var
  X : Array [1..Nmax] Of Real;
  A : Real;
  n, k, i : Integer;

Begin
Writeln('Введите количество чисел');
Readln(n);
For i := 1 To n Do X[i]:=random(100);
{ Сортировка }
For k := 1 To n-1 Do
   For i := 1 To n-1 Do
     If X[i] > X[i+1] Then
       Begin
         A:=X[i];
         X[i]:=X[i+1];
         X[i+1]:=A
       End;
Writeln('Отсортированный массив чисел:');
For i:=1 To n Do
Write (X[i], ' ' );
End.

программа сортировки выбором одномерного массива

program Sort_Vybor1;
var A:array[1..100] of integer;
N,i,m,k,x : integer;

begin
write('количество элементов массива ');
read(N);
for i:=1 to n do A[i]:=random(100);
for k:=n downto 2 do {k- количество элементов для поиска max }
   begin
    m:=1; { m - место max }
    for i:=2 to k do if A[i]>A [m]then m:=i;
    {меняем местами элементы с номером m и номером k}
    x:=A[m]; A[m]:=A[k]; A[k]:=x;
   end;
for i:=1 to n do write(A[i],' '); {упорядоченный массив}
end.

From Stilet: Код выделяй спецтегом. Уважай форумчан.

[Dvoishnik]

да правильно.
только код нужно оформлять правильно между тегами
[СODE]
[/СODE]
П.С. правила форума

[Greschnik]

Помогите с двумерным массивом)

Для двумерного массива(пузырьковый) правильно?

const 
  nmax = 100; 
var 
  a:array[1..n] of integer;
  i,j,buf:integer;
begin
   {Заполняем массив случайными целыми числами из диапазона от 0 до 9 и выводим массив на экран}
  for i:=1 to n do
    begin
      a[i]:=random(100);
      write(a[i],' '); 	 	
    end;	
  for i:=1 to n-1 do 
    for j:=i+1 to n do {В этой строке начинающие программисты чаcто допускают ошибку}
      if a[i]>a[j] then 
        begin
          buf:=a[i]; 
          a[i]:=a[j]; 
          a[j]:=buf;
        end;
  writeln;
  writeln('Массив после сортировки пузырьковым методом: ');
  for i:=1 to n do 
    write(a[i],' ');
end.

[Stilet]

Для двумерного массива(пузырьковый) правильно?

Неа.

const 
  nmax = 100; 
var 
  a:array[1..n,1..n] of integer;
  i,j,k,buf:integer;
begin
   {Заполняем массив случайными целыми числами из диапазона от 0 до 9 и выводим массив на экран}
  for i:=1 to n do for j:=1 to n do
    begin
      a[i,j]:=random(100);
      write(a[i,j],' '); 	 	
    end;	
  for i:=1 to n do 
    for j:=1 to n do 
     for k:=1 to n do 
      if a[i,k]>a[i,j] then 
        begin
          buf:=a[i,j]; 
          a[i,j]:=a[j,k]; 
          a[j,k]:=buf;
        end;
  writeln;
  writeln('Массив после сортировки пузырьковым методом: ');
  for i:=1 to n do for j:=1 to n do
    write(a[i,j],' ');
end.

Если не ошибаюсь.

[Greschnik]

а метод выборки,помогите с ним разобраться

[FPaul]

Пояснение к идее сортировки матриц.
После этого, берёшь любую сортировку (выбором, шейкер и прочие) и путём замены A[i] на M[..., ...] получаешь сортировку.