VitalikSG

Помогите, пожалуйста, написать программу для квадратной матрицы А.
1.расчитать элементы матрицы по формуле Ai,j=(i-5)*j+(j-2)!
2.упорядочить элементы 2-ой строки матрицы по возрастанию значений.
Заранее спасибо!

Евгений

const n=10;
type Tmatr= array[1..n,1..n] of integer;
var A: Tmatr;
i,j,e,t: integer;
begin
for i:=1 to n do
for j:=1 to n do
A[i,j]:=((i-5)*j)+(j-2);
for i:=1 to n do begin
for j:=1 to n do
Write(A[i,j]:5);
Writeln;
end;
Writeln;
i:=2;
for j:=1 to n-1 do
for e:=1 to n-j do
if A[i,e]>A[i,e+1] then begin
t:=A[i,e];
A[i,e]:=A[i,e+1];
A[i,e+1]:=t;
end;
for i:=1 to n do begin
for j:=1 to n do
Write(A[i,j]:5);
Writeln;
end;
Readln;
end.

VitalikSG

Спасибо Вам огромное!!!!