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

@Валерий · Регистрация: 28.03.2012

Дан двумерный массив, содержащий 4 строки и 5 столбцов. Элементами массива являются целые числа. Упорядочить массив по убыванию элементов 2-й строки.
Помогите пожалуйста написать программу и блок-схему

@КонецСвета · 31.03.2012, 01:02

Pascal

uses crt;
var a: array [1..4,1..5] of integer;
    i,j,z: byte;
    buf: integer;
begin
writeln('Дана матрица');
for i:=1 to 4 do
    begin
    for j:=1 to 5 do
        begin
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);
        end;
    writeln;
    end;
z:=1;
while z<=5 do
      begin
      for j:=1 to 4 do
          if a[2,j]<a[2,j+1] then
             begin
             for i:=1 to 4 do
                 begin
                 buf:=a[i,j];
                 a[i,j]:=a[i,j+1];
                 a[i,j+1]:=buf;
                 end;
             end;
      inc(z);
      end;
writeln('Сортироанная матрица');
for i:=1 to 4 do
    begin
    for j:=1 to 5 do
        write(a[i,j]:4);
    writeln;
    end;
end.

@Валерий · 31.03.2012, 14:45 **[ТС]**

Спасибо)

@Валерий 0 / 0 / 0 Регистрация: 28.03.2012 Сообщений: 3
		1
	Упорядочить массив по убыванию элементов 2-й строки. 28.03.2012, 15:33. Показов 2343. Ответов 2 Метки нет (Все метки) Дан двумерный массив, содержащий 4 строки и 5 столбцов. Элементами массива являются целые числа. Упорядочить массив по убыванию элементов 2-й строки. Помогите пожалуйста написать программу и блок-схему 0

@Валерий 0 / 0 / 0 Регистрация: 28.03.2012 Сообщений: 3
	31.03.2012, 14:45 [ТС]	3
	Спасибо) 0

Опции темы

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

Решение