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

@Dimaaa · Регистрация: 10.05.2012

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

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

@ermolay · 16.05.2012, 18:00

Pascal

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,n,m,tmp,p,q: integer;
begin
  randomize;
  write('Введите размеры массива: ');
  readln(n,m);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:5);
    end;
    writeln;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    for p:=2 to m do
      for q:=m downto p do
      if a[i,q-1]<a[i,q] then
      begin
        tmp:=a[i,q-1];
        a[i,q-1]:=a[i,q];
        a[i,q]:=tmp;
      end;
  end;
  
  writeln('Массив, упорядоченный по строкам:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:5);
    writeln;
  end;
  readln;
end.

@Dimaaa 0 / 0 / 0 Регистрация: 10.05.2012 Сообщений: 14
		1
	Дан двумерный числовой массив. Упорядочить элементы в каждой строке по убыванию 16.05.2012, 17:50. Показов 3523. Ответов 1 Метки нет (Все метки) Дан двумерный числовой массив. Упорядочить элементы в каждой строке по убыванию. 0

	16.05.2012, 18:00

Опции темы

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

Решение