Question

Выполнить
действия над массивами. В таблице при формулировании задания для разъяснения
его сути справа отображены примеры исходных X и результирующих Y массивов с
конкретными числами. Программа, естественно, должна обрабатывать любые числа для
массивов произвольной размерности N.
Программа должна предъявлять исходные и новые (если требуется) массивы.



Изменить порядок элементов массива X на обратный и заполнить ими массив
Y.



1


2


3


4


5


6


X





6


5


4


3


2


1


Y

Answer 1

var X, Y: array [0..5] of byte;
    i: integer;
begin
     for i := 1 to 6 do X[i-1] := i;

     for i := 0 to 5 do Y[5 - i] := X[i];
end.

Необычная задача=)