Advertisement
Guest User

Untitled

a guest
Nov 10th, 2013
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. Program Task_7;
  2. Var
  3. a : array [1..10000] of integer;
  4. i, n, p: integer;
  5.  
  6. Begin
  7.  
  8. read(n);
  9. for i := 1 to n do
  10. read(a[i]);
  11.  
  12.  
  13.  
  14. for i := 1 to n div 2 do
  15. begin
  16. p := a[i];
  17. a[i] := a[n-i+1];
  18. a[n-i+1] := p;
  19. end;
  20.  
  21. for i := 1 to n do
  22. write(a[i], ' ');
  23.  
  24.  
  25. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement