Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program Task_7;
- Var
- a : array [1..10000] of integer;
- i, n, p: integer;
- Begin
- read(n);
- for i := 1 to n do
- read(a[i]);
- for i := 1 to n div 2 do
- begin
- p := a[i];
- a[i] := a[n-i+1];
- a[n-i+1] := p;
- end;
- for i := 1 to n do
- write(a[i], ' ');
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement