Question

Составить программу на языке Паскаль.

Answer 1

Ответ:

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.

Объяснение: