Program pr31 (Input, Output);
Var
X : Array [1..100] Of Integer;
N : Integer;
Y : Integer;
i : Integer;
Begin
WriteLn ('PASCAL: Изменение порядка следования элементов на обратный.');
Write ('Введите размерность массива:');
ReadLn (N);
WriteLn ('Введите элементы массива:');
For i := 1 To N Do
Begin
Write ('X[', i, '] = ');
ReadLn (X[i]);
End;
For i := 1 To (N div 2) Do
Begin
Y := X [i];
X [i] := X [N - i + 1];
X [N - i + 1] := Y;
End;
WriteLn ('Полученный массив:');
For i := 1 To N Do
Begin
Write (X[i]);
Write (' ');
End;
ReadLn;
End.