Заполнить массив Y произведениями соседних трех элементов массива X - Turbo Pascal

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

Заполнить массив Y произведениями соседних трех элементов массива X.

Решение задачи: «Заполнить массив Y произведениями соседних трех элементов массива X»

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

Const N=10;
type Mas=Array[1..N]Of Integer;
var i: integer;
    Y,X:Mas;
 
Procedure Vyvod(Var massiv:Mas);
Var i:Integer;
Begin
     For i:=1 To N Do Write(massiv[i]:5);
     Writeln;
End;
 
BEGIN
  For i:=1 To N Do X[i]:=Random(10)+1;
  Write('massiv X: '); Vyvod(X);
  For i:=2 To N-1 Do Y[i]:=X[i]*X[i-1]*X[i+1];
  Y[1]:=Y[2]; Y[N]:=Y[N-1];
  Write('massiv Y: '); Vyvod(Y);
  Readln;
END.

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

В данном коде объявлены следующие переменные:

N - константа, которая определяет размер массива (в данном случае 10);
Mas - тип данных, который представляет собой массив целых чисел (массив X);
i - переменная типа integer, которая используется в цикле;
Y, X - переменные типа Mas, которые представляют собой массивы, заполняемые значениями в процессе выполнения программы. В процедуре Vyvod (вывод) переменной massiv (массив) выводится каждый элемент массива X. В основной части кода:
1. Создается массив X с помощью оператора присваивания. Каждый элемент массива X инициализируется случайным числом от 1 до 10 с помощью функции Random(10)+1.
2. Выводится массив X с помощью процедуры Vyvod.
3. Создается массив Y, который заполняется произведениями соседних трех элементов массива X. Для этого используется цикл for, который выполняется от 2 до N-1 (исключая границы). Значение каждого элемента массива Y присваивается произведению значений трех соседних элементов массива X. Первый элемент массива Y присваивается значению второго элемента, а последний - значению первого.
4. Выводится массив Y с помощью процедуры Vyvod.
5. Программа завершается с помощью команды Readln.