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

@jedi1892 · Регистрация: 22.10.2009

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

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

@Inadequate · 09.12.2009, 12:38

Pascal

uses
  crt;
const
  n=4;
var
  a:array [1..n,1..n] of integer;
  i,j,temp:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {ñîðòèðóåì}
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i,i]>a[j,j] then
      begin
        temp:=a[i,i];
        a[i,i]:=a[j,j];
        a[j,j]:=temp
      end;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:2,' ');
    writeln
  end;
end.

@jedi1892 0 / 0 / 0 Регистрация: 22.10.2009 Сообщений: 10
		1
	Упорядочить элементы главной диагонали по убыванию 09.12.2009, 12:26. Показов 1768. Ответов 1 Метки нет (Все метки) дана квадратная матрица.Упорядочить элементы главной диагонали по убыванию(возрастанию) 0

	09.12.2009, 12:38

Опции темы

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

Решение