Составить программу для вычисления элементов матрицы Y по известным элементам вектора X - Pascal ABC - Ответ 13982604

program Project1;
 
const
  maxelem = 20;
var
  n: integer; // Переменная для хранения значения количества строк и столбцов.
  x: array [1..maxelem] of real; // Переменная для хранения вектора.
  y: array [1..maxelem,1..maxelem] of real; // Переменная для хранения массива.
  i,j: integer; //  Вспомогательные переменные для организации циклов.
begin
  write('Введите число строк и столбцов (не более 20): ');
  Readln(n);
  writeln('Ввод значений в вектор: ');
  for i:= 1 to n do    // Ввод значений вектора в массив.
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(x[i]);
    end;
 
  writeln('Исходный вектор: ');
  for i:= 1 to n do          // Вывод одномерного масссива в консоль.
    begin
      write(x[i]:8:4);
      if i mod 10 = 0 then
        writeln;
    end;
  for i:= 1 to n do
    for j:= 1 to n do
      begin
        if (x[i] > 1) or (x[j] > 1) then   // Вычисление элементов матрицы.
          y[i,j]:= sin(exp(x[i]*x[j]/(x[i]+x[j])))
        else
          y[i,j]:= 2*cos(x[i]*x[j]/3);
      end;
  writeln;
  writeln('Вычисленная матрица:');
  for i:= 1 to n do      // Вывод матрицы в консоль.
    begin
      for j:= 1 to n do
        write (y[i,j]:8:4);
      writeln;
    end;
 
  Readln;
end.