Матрица сортировка по убыванию

@MrRescuer · Регистрация: 19.12.2008

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

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

Код

uses crt;
var n,m,i,j:integer; var max, buf:integer;
a: array [1..2,1..6] of integer;
s:array [1..6] of integer;
begin
max:=a[1,j];
for i:=2 to 6 do
if a[i,j]>max then
max:=a[i,j];
s[i]:=max;

for j:=1 to 5 do
if s[i]>s[i+1] then
begin
buf:=s[i];
s[i]:=s[i+1];
s[ i+1]:=buf;
writeln('vvod matr a(2,6)');
for i:=1 to 2 do
for j:=1 to 6 do write('s=',a [i,j]);
end;
readln;
end.

Добавлено через 35 секунд
заранее спасибо

23.12.2008, 14:32

а как отсортировать по убыванию строку В которой находится минимальный элемент матрици и вывести наэкран новую матрицу с новой строкой???

@Puporev · 23.12.2008, 14:59

Исправил Вашу чушь, как мог, учитесь немного писать программы нормально.

Код

uses crt;
var a: array [1..2,1..6] of integer;
    i,j,k,buf:integer;
begin
clrscr;
writeln('vvod matr a(2,6)');
for i:=1 to 2 do
for j:=1 to 6 do read(a[i,j]);
readln;
{sortirovka}
for i:=1 to 2 do
for j:=1 to 5 do
for k:=j+1 to 6 do
if a[i,j]<a[i,k] then
   begin
     buf:=a[i,j];
     a[i,j]:=a[i,k];
     a[i,k]:=buf;
   end;
writeln('Rezultat:');
for i:=1 to 2 do
   begin
     for j:=1 to 6 do
     write(a[i,j]:4);
     writeln;
   end;
readln;
end.

@MrRescuer · 23.12.2008, 17:47 **[ТС]**

приогромнейшая благодарность

@MrRescuer · 12.03.2009, 22:38 **[ТС]**

---

@MrRescuer 3 / 3 / 1 Регистрация: 19.12.2008 Сообщений: 42
		1
	Матрица сортировка по убыванию 22.12.2008, 18:50. Показов 978. Ответов 4 Метки нет (Все метки) Дана целочисленная матрица а(2,6). Упорядочить каждую ее строку по убыванию элементов. ... то что понаписал...помогите плз Код uses crt; var n,m,i,j:integer; var max, buf:integer; a: array [1..2,1..6] of integer; s:array [1..6] of integer; begin max:=a[1,j]; for i:=2 to 6 do if a[i,j]>max then max:=a[i,j]; s[i]:=max; for j:=1 to 5 do if s[i]>s[i+1] then begin buf:=s[i]; s[i]:=s[i+1]; s[ i+1]:=buf; writeln('vvod matr a(2,6)'); for i:=1 to 2 do for j:=1 to 6 do write('s=',a [i,j]); end; readln; end. Добавлено через 35 секунд заранее спасибо 0

XXXHolic
	23.12.2008, 14:32	2
	а как отсортировать по убыванию строку В которой находится минимальный элемент матрици и вывести наэкран новую матрицу с новой строкой???

@MrRescuer 3 / 3 / 1 Регистрация: 19.12.2008 Сообщений: 42
	23.12.2008, 17:47 [ТС]	4
	приогромнейшая благодарность 0

@MrRescuer 3 / 3 / 1 Регистрация: 19.12.2008 Сообщений: 42
	12.03.2009, 22:38 [ТС]	5
	--- 0