Из массивов X, содержащего 10 элементов, и Y, содержащего 15 элементо

program Project1;
const
  maxelem = 15;
type
  TArr = array [1..maxelem] of real;
 
procedure RandomInfInArray (var arr: TArr; narr,leftval,rightval: integer);
// Процедура для заполнения одномерного массива случайными числами.
var
   i: integer;
begin
for i:= 1 to narr do
  arr[i]:= leftval + random(rightval - leftval + 1) ;
 
end;
 
procedure InfOutArray (arr: TArr; narr: integer);
// Процедура для вывода элементов массива на экран.
var
   i: integer;
begin
  for i:= 1 to narr do
    begin
      Write(arr[i]:4:0);
      if i mod 10 = 0 then
        Writeln;
    end;
end;
 
var
  x,y: TArr; // Переменные для хранения одномерных массивов.
  c: array [1..5,1..5] of real; // Переменная для хранения двумерного массива 5х5
  i,j,k: integer; //  Вспомогательные переменные для организации циклов.
begin
  writeln('Массив X на 10 элементов:');
  RandomInfInArray(x,10,0,10);  // Заполнение массива X случайными положительными числами.
  InfOutArray(x,10);            // Вывод массива X на экран.
  writeln('Массив Y на 15 элементов:');
  RandomInfInArray(y,15,-10,0);   // Заполнение массива Y случайными отрицательными числами.
  InfOutArray(y,15);              // Вывод массива Y на экран.
  k:= 1;
  for i:= 1 to 4 do  // Заполнение матрицы элементами массива X
    for j:= i+1 to 5 do
      begin
        c[i,j]:= x[k];
        inc(k);
      end;
  k:= 1;
  for i:= 1 to 5 do  // Заполнение матрицы элементами массива Y
    for j:= 1 to i do
      begin
        c[i,j]:= y[k];
        inc(k);
      end;
  writeln;
  writeln('Массив 5x5 элементов, заполненный массивами на 15 элементов и 10 элементов:');
  for i:= 1 to 5 do   // Вывод матрицы на экран.
    begin
    for j:= 1 to 5 do
      Write(c[i,j]:4:0);
    writeln;
    end;
  Readln;
end.

program Project1;
 
var
  x: array [1..10] of integer; // Переменная для хранения одномерного массива на 10 элементов.
  y: array [1..15] of integer; // Переменная для хранения одномерного массива на 15 элементов.
  c: array [1..5,1..5] of integer; // Переменная для хранения двумерного массива 5х5
  i,j,k: integer; //  Вспомогательные переменные для организации циклов.
 
begin
  writeln('Массив X на 10 элементов:');
  for i:= 1 to 10 do
    begin
      x[i]:= random(11);  // Заполнение массива X случайными положительными числами.
      Write(x[i]:4);    // Вывод массива X на экран.
        if i mod 10 = 0 then
          Writeln;
    end;
  writeln('Массив Y на 15 элементов:');
  for i:= 1 to 15 do
    begin
      y[i]:= - random(11);   // Заполнение массива Y случайными отрицательными числами.
      Write(y[i]:4);       // Вывод массива Y на экран.
        if i mod 10 = 0 then
          Writeln;
    end;
 
  k:= 1; // Установка счетчика в начальное состояние.
  for i:= 1 to 4 do   // Циклы для перебора индексов элементов выше главной диагонали.
    for j:= i+1 to 5 do
      begin
        c[i,j]:= x[k]; // Заполнение матрицы элементами массива X
        k:= k + 1;        // Увеличение счетчика на единицу.
      end;
  k:= 1;  // Установка счетчика в начальное состояние.
  for i:= 1 to 5 do    // Циклы для перебора индексов элементов главной диагонали и элементов ниже главной диагонали.
    for j:= 1 to i do
      begin
        c[i,j]:= y[k];  // Заполнение матрицы элементами массива Y
        k:= k + 1;         // Увеличение счетчика на единицу.
      end;
  writeln;
  writeln('Массив 5x5 элементов, заполненный массивами на 15 элементов и 10 элементов:');
  for i:= 1 to 5 do   // Вывод матрицы на экран.
    begin
    for j:= 1 to 5 do
      Write(c[i,j]:4);
    writeln;
    end;
  Readln;
end.