Упорядочить по убыванию элементы первого столбца матрицы

@Алиюкса · Регистрация: 26.06.2013

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

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

Комментарий модератора

Алиюкса, обращаю ваше внимание на правила форума:
заголовок должен отражать суть задания, а не быть собирательным названием тысяч подобных тем.
сколько можно за вами ... переименовывать?!

@MicM · 30.06.2013, 19:14

Pascal

uses crt;
const
  n=5;
var
  a:array [1..n,1..n] of integer;
  i,j,tmp:integer;
begin
  clrscr;
  randomize;
  writeln ('Исходный массив');
  randomize;
  for i:=1 to n do begin
   for j:=1 to n do begin
    a[i,j]:=random(9)+1;
    write (a[i,j]:3);
   end;
   writeln;
  end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if a[j,1]>a[i,1] then
     begin
      tmp:=a[i,1];
      a[i,1]:=a[j,1];
      a[j,1]:=tmp;
     end;
  writeln ('Получившийся массив');
  for i:=1 to n do begin
   for j:=1 to n do write (a[i,j]:3);
   writeln;
  end;
  readln;
end.

	30.06.2013, 19:14

Упорядочить по убыванию элементы первого столбца матрицы

Решение