var
a: array of integer;
i, n: integer;
begin
Write('Введите размер массива N: '); ReadLn(n);
SetLength(a, n + 1);
for i := 1 to n do
begin
Write('A[', i, '] = '); ReadLn(a[i]);
end;
for i := 1 to round(n / 2) do
swap(a[i], a[n - i + 1]);
for i := 1 to n do
Write(a[i], ', ');
end.
Объяснение:
