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

@tania. · Регистрация: 28.12.2009

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

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

@Snoopy · 19.02.2010, 14:12

Pascal

uses crt;
var a:array[1..100,1..100] of integer;
    i,j,n,m,k,x:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
k:=1;
for i:=1 to n do
for j:=1 to m do
for k:=j 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;
for i:=1 to n do
 begin
  for j:=1 to m do
   Write(a[i,j]:4);
   Writeln;
 end;
Readln;
end.

@Puporev · 19.02.2010, 15:03

tania., Вы уже создали три одинаковых темы. Чем Вам не подошло решение в этой теме?
https://www.cyberforum.ru/pascal/thread97053.html

@tania. 2 / 2 / 0 Регистрация: 28.12.2009 Сообщений: 53
		1
	Дана матрица. Упорядочить ее строки по убыванию первых элементов строк, если это возможно. 18.02.2010, 22:54. Показов 2203. Ответов 2 Метки нет (Все метки) помогите плиз..... Дана матрица. Упорядочить ее строки по убыванию первых элементов строк, если это возможно. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	19.02.2010, 15:03	3
	tania., Вы уже создали три одинаковых темы. Чем Вам не подошло решение в этой теме? https://www.cyberforum.ru/pascal/thread97053.html 0

Опции темы

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

Решение