Вычисление элементов матрицы Y по известным элементам X - Turbo Pascal - Ответ 13965634

program Project1;
const
  maxelem = 100;
var
  x: array [1..maxelem] of real; // Переменная для  хранения массива.
  y: array [1..maxelem,1..maxelem] of real; // Переменная для хранения матрицы.
  m: integer; //  Переменная для хранения значения количества элементов в массиве.
  i,j,k: integer; // Вспомогательные переменные для организации циклов.
  flagErr: boolean; // Логическая переменная для корректного вывода ответа.
begin
  flagErr:= false;
  write('Введите значение количества элементов m: ');
  Readln(m);
  for i:= 1 to m do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(x[i]);
    end;
  writeln('Исходный массив X: ');
  for i:= 1 to m do
    begin
      write(x[i]:7:2);
      if i mod 10 = 0 then
        writeln;
    end;
 
  for i:= 1 to m do
    for j:= 1 to m do
      if x[j] <> 0 then
        y[i,j]:= sin((i+j)*x[i]/x[j])
      else
        begin
          flagErr:= true;
          break;
        end;
  writeln;
  if flagerr then
    writeln('Значение элементов матрицы не определено.')
  else
    begin
      writeln('Матрица: ');
      for i:= 1 to m do
        begin
          for j:= 1 to m do
            write(y[i,j]:7:2);
          writeln;
        end;
    end;
  Readln;
end.