Программирование матричных операций - Pascal

Формулировка задачи:

1) расчета элементов квадратной матрицы A = (ai,j), i,j = 1,2,...,n по заданной формуле; 2) вычисления элементов вектора X = (xi), i = 1,2,...,n по заданному правилу; 3) требуемого упорядочения элементов матрицы А или вектора Х; 4) вычисления значения y по заданной формуле. Размерность задачи n назначается преподавателем. Напишите программу и блок схему, буду очень благодарен.

Решение задачи: «Программирование матричных операций»

Листинг программы

  for i:=1 to n do for j:=1 to n do a[i,j]:=(i+2)*i/j;
  for i:=1 to n do begin
    mn:=a[i,1]; mx:=mn;
    for j:=1 to n do begin
      if mn>a[i,j] then mn:=a[i,j];
      if mx<a[i,j] then mx:=a[i,j];
    end;
    x[i]:=mx-mn;
  end;
  for i:=2 to n do begin
    t:=x[i]; j:=i;
    while (j>1) and (x[j-1]<t) do begin x[j]:=x[j-1]; Dec(j); end;
    x[j]:=t;
  end;
  y:=1; for j:=1 to n do y:=y*(x[j]{+ неведомая_фигня_из_условия });

Объяснение кода листинга программы

В этом коде выполняются матричные операции. Вот список действий:

Заполнение матрицы a значениями по формуле (i+2)*i/j.
Поиск минимального и максимального значения в каждой строке матрицы a.
Запись разности максимального и минимального значения в матрицу x.
Сортировка матрицы x по возрастанию с помощью алгоритма сортировки пузырьком.
Запись в переменную y произведения всех элементов матрицы x, которые больше или равны неизвестному значению из условия задачи.