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

program Project1;
 
const
  maxelem = 15;
var
  x: array [1..maxelem] of real; { Переменная для  хранения вектора.}
  y: array [1..maxelem,1..maxelem] of real; { Переменная для хранения матрицы}
  i,j: integer; { Вспомогательные переменные для организации циклов.}
  n: integer; {переменная для хранения значения количества элементов вектора и размерности  матрицы}
begin
  write('Введите значение максимального количества вводимых элементов вектора: ');
  Readln(n);
  writeln('Введите значения элементов вектора Х: ');
  for i:= 1 to n do
    begin
      repeat
        write('Введите значение ',i,' элемента: ');
        Readln(x[i]);
        if x[i] = 0 then
          writeln('Ошибка ввода аргументов! Функция на нулевом значении не определена.');
      until x[i] <> 0;
    end;
  writeln('Исходный вектор Х: ');
  for i:= 1 to n do
    begin
      write(x[i]:5:2);
      if i mod 10 = 0 then
        writeln;
    end;
  writeln;
  writeln('Матрица Y: ');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        begin
          y[i,j]:= sin(ln(abs(x[i]))) + x[j];
          write(y[i,j]:5:2);
        end;
      writeln;
    end;
  Readln;
end.