Advertisement
Guest User

Untitled

a guest
Jan 28th, 2020
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. program abc;
  2. const length = 4;
  3. var
  4. L : array[0..length] of integer;
  5. i, tmp : integer;
  6. begin
  7. for i := 0 to length do
  8. begin
  9. read(L[i]);
  10. end;
  11. for i := 0 to (length div 2) do
  12. begin
  13. tmp := L[i];
  14. L[i] := L[length - i];
  15. L[length - i] := tmp;
  16. end;
  17. for i := 0 to length do
  18. begin
  19. writeln(L[i]);
  20. end;
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement