Отсортировать в порядке возрастания каждую строку матрицы и вывести их на экран

@fruktovaya · Регистрация: 31.10.2011

программа генерирует матрицу размерностью 5*5 со значениями в интервале от 0 до 9 включительно и выводит ее на экран. далее необходимо отсортировать в порядке возрастания каждую строку и вывести их на экран.

Помогите пожалуйста!

@Puporev · 02.11.2011, 14:01

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n] of byte;
    i,j,k,x:byte;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j],' ');
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]>a[i,k] then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Сортировка строк:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j],' ');
  writeln;
 end;
readln
end.

@fruktovaya 1 / 1 / 0 Регистрация: 31.10.2011 Сообщений: 26
		1
	Отсортировать в порядке возрастания каждую строку матрицы и вывести их на экран 02.11.2011, 12:14. Показов 1550. Ответов 1 Метки нет (Все метки) программа генерирует матрицу размерностью 5*5 со значениями в интервале от 0 до 9 включительно и выводит ее на экран. далее необходимо отсортировать в порядке возрастания каждую строку и вывести их на экран. Помогите пожалуйста! __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

Опции темы

Отсортировать в порядке возрастания каждую строку матрицы и вывести их на экран

Решение