Дан массив А, состоящий из 6 элементов. Вывести элементы массива. Изменить порядок следования элементов массива на обратный, вывести инвертированный массив.

 

Помогите, пожалуйста, составить программу в паскале!!!

 

Вот, например, я начала.

 

Program z10;
VAR
p, i: Integer;
x: Array [1..6] of integer;
Begin
For i:=1 to 6 Do
begin
p:=a[i];

А как дальше поменять местами остальные элементы??

Program z10;VARx: Array [1..6] of integer;i:integer;BeginRandomize;For i:=1 to 6 dobeginx[i]:=random(99);write('x[',i,']=', x[i],' ');end;writeln;For i:=6 downto 1 dobeginwrite('x[',6-i+1,']=', x[i],' ');end;end.

спасибо за помощь!

ну тогда удачи!