Дан массив размерности nxn .

[ToRN-12]

Ребята, буду рад помощи.

------

Дан массив размерности nxn . Элементы строк, находящиеся выше главной диагонали (не включая главную диагональ), расположить в порядке возрастания, а затем переписать их в виде вектора (по строкам) в одномерный массив Y , начиная с левого верхнего угла. (Определить размерность массива Y в зависимости от размерности массива X ).

[Stilet]

Свои попытки были?

[ToRN-12]

Да, были. Но не совсем удачные.

[Stilet]

Что ж. Подкину идею:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
const n=5;
var a:array[1..n,1..n] of integer;v,k,i,j:integer;
  y:array[1..n] of integer;
begin
 //Вводим матрицу
 for i:=Low(a) to high(a) do for j:=Low(a[i]) to high(a[i]) do a[i]:=i*j;
 //Сортируем верхний треугольник
 for i:=Low(a) to high(a) do
   for j:=i+1 to high(a[i]) do
     for k:=j to high(a[i]) do
       if a[j]<a[k] then begin v:=a[k]; a[k]:=a[j]; a[j]:=v; end;
 //Заполняем вектор
 k:=Low(y);
 for i:=Low(a) to high(a) do for j:=i+1 to high(a[i]) do begin y[k]:=a[i,j];inc(k);end;
end;

end.

к - кол-во элементов в векторе.
Не копипастить! - не поможет.