PASCAL

[alenchi]

Помогите решить задачи, пожалуйста! Очень нужна помощь!!!

Разработать в среде Turbo Pascal программу решения взаимосвязанных задач:
a. расчет элементов квадратной матрицы A = (aij), i,j – 1,2,…,n по заданной формуле: а[i,j]=(i в степениj - j в степени i)/ji
b. упорядочить элементы четных строк матрицы А по убыванию значений;

Спасибо, заранее!!!!))

[Sciv]

Ну вот задача 1

function Pow(x,y: integer);
var k, res: integer;
begin
  res:=x;
  For k:=2 to y do res:=res*x;
  Pow:=res;
end;

var n: integer;
    a: array [1..10,1..10] of real;

begin
  ReadLn(n);
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=(Pow(i,j)-Pow(j,i))/i*j;
      Write(a[i,j],' ');
    end;
    WriteLn;
  end;
  ReadLn;
end.

Сортировку, извините, писать как обычно лениво. Зайдите в поиск по форуму и наберите "Упорядочить элементы матрицы" - найдете свою или похожую, и не одну