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

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

1)a_ji=(2ij+4i)/i! 2)Xi=скалярное произведение второй строки на i-тый столбец 3)Элементы главной диагонали по убыванию 4)y=

Program matrica;
Const
 N=4;
Var
 M:Array[1..N,1..N] of real;
 i,j,k,f:integer;
 t,y,p:Real;
 D:Array[1..N] of Real;
Begin
 f:=1;
 For i:=1 to N do
  begin
   f:=f*i;
   For j:=1 to N do
    begin
     M[i,j]:=(2*i*j+4*i)/f;
     Write(M[i,j]:8:4);
    end;
   Writeln;
  end;
 Writeln;
 For i:=1 to N do
  begin
   t:=0;
   For j:=1 to N do
    t:=t+M[2,j]*M[j,i];
   Writeln('X',i,'= ',t:0:4);
  end;
 Writeln;
 For i:=1 to N do
  D[i]:=M[i,i];
 Writeln('Г“ГЇГ®Г°ГїГ¤Г®Г·ГЁГўГ*Г*ГЁГҐ');
 For i:=1 to N-1 do
  For j:=1 to N-i do
   If D[j]<D[j+1] then
    begin
     y:=D[j];
     D[j]:=D[j+1];
     D[j+1]:=y;
    end;
 For i:=1 to N do Write(D[i]:8:4);
 Readln;
Writeln('упорядочивание');
p:=f*t;
for i:=1 to 4 do
p:=p*x[i];
y:=sqrt(p);
writeln('y=',y);
end.

Четвертое условие не получается.

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

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

Program matrica;
Const
 N=4;
Var
 M:Array[1..N,1..N] of real;
 i,j,k,f:integer;
 t,y,p,x:Real;
 d:Array[1..N] of Real;
Begin
 f:=1;
 For i:=1 to N do
  begin
   f:=f*i;
   For j:=1 to N do
    begin
     M[i,j]:=(2*i*j+4*i)/f;
     Write(M[i,j]:8:4);
    end;
   Writeln;
  end;
 Writeln;
 For i:=1 to N do
  begin
   t:=0;
   For j:=1 to N do
    t:=t+M[2,j]*M[j,i];
   Writeln('X',i,'= ',t:0:4);
  end;
 Writeln;
 For i:=1 to N do
  D[i]:=M[i,i];
 Writeln('Г“ГЇГ®Г°ГїГ¤Г®Г·ГЁГўГ*Г*ГЁГҐ');
 For i:=1 to N-1 do
  For j:=1 to N-i do
   If D[j]<D[j+1] then
    begin
     y:=D[j];
     D[j]:=D[j+1];
     D[j+1]:=y;
    end;
 For i:=1 to N do Write(D[i]:8:4);
 Readln;
Writeln('ГґГіГ*ГЄГ¶ГЁГї');
p:=1;
for i:=1 to 4 do
p:=p*d[i];
y:=sqrt(p);
writeln('y=',y);
end.

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

Список действий в коде:

Задание размера матрицы и инициализация переменных.
Заполнение матрицы M элементами, используя формулу (2ij+4*i)/f.
Вывод на экран содержимого матрицы M.
Вычисление значения t для каждой строки матрицы M и вывод на экран.
Инициализация диагональной матрицы D элементами M[i,i].
Сортировка элементов матрицы D в порядке возрастания.
Вывод на экран содержимого матрицы D.
Ввод на экран сообщения ГґГіГ*ГЄГ¶ГЁГї.
Инициализация переменной p значением 1.
Вычисление значения p как произведения элементов d[i].
Вычисление значения y как квадратного корня из p.
Вывод на экран сообщение ГґГіГ*ГЄГ¶ГЁГї и значение y.