Упорядочивание по возрастанию элементов каждой строки двумерного массива

14.10.2014, 19:13. **Показов** 2724. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Составьте программу упорядочивания по возрастанию элементов каждой строки двумерного массива (с помощью метода пузырька)

@ermolay · 14.10.2014, 20:52

Pascal

const
  n = 5;
var
  a: array[1..n, 1..n] of integer;
  i, j, t, k: integer;
begin
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  
  {Сортировка}
  for i:=1 to n do
    for j:=2 to n do
      for k:=n downto j do
        if a[i,k]<a[i,k-1] then
        begin
          t:=a[i,k];
          a[i,k]:=a[i,k-1];
          a[i,k-1]:=t;
        end;
        
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

kaktuuus
		1
	Упорядочивание по возрастанию элементов каждой строки двумерного массива 14.10.2014, 19:13. Показов 2724. Ответов 1 Метки нет (Все метки) Составьте программу упорядочивания по возрастанию элементов каждой строки двумерного массива (с помощью метода пузырька)

Опции темы

Упорядочивание по возрастанию элементов каждой строки двумерного массива

Решение