Составить программу в паскале. Переставить элементы одномерного массива по следующей схеме: а) исходный массив - а[1], а[2], а[3], а[4], а[5]. б) итоговый - а[5], а[4], а[3], а[2], а[1].

Uses Crt;

Const

N = 5;

Var

A:array[1 ... N] of integer;

i, B:integer;

Begin

ClrScr;

Randomize;

Write ('Исходный массив:');

For i: = 1 to N do

Begin

A[i]:=random (2*N+1);

Write (' ', A[i]);

End;

WriteLn;

Write ('Итоговый массив:');

For i: = 1 to N div 2 do

Begin

B:=A[N-i+1];

A[N-i+1]:=A[i];

A[i]:=B

End;

For i: = 1 to N do

Write (' ', A[i]);

ReadLn

End.