Advertisement
Guest User

Untitled

a guest
Apr 24th, 2019
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None | 0 0
  1. program vava;
  2. const
  3. M=1000;
  4. N=1000;
  5. var
  6. g,h,d,i,j:integer;
  7. a: array [1..M, 1..N] of integer;
  8. begin
  9. read(g,h);
  10. for i:=1 to g do
  11. begin
  12. for j:= 1 to h do
  13. begin
  14. read(a[i,j]);
  15. for i:=1 to g do
  16. begin
  17. for j:= 1 to h do
  18. d:=a[i,j];
  19. a[i,j]:=a[i,j-i+1];
  20. a[i,j-i+1]:=d;
  21. end;
  22. end;
  23. end;
  24. for i:=1 to n do
  25. begin
  26. for j:= 1 to n do
  27. write(a[i,j],' ');
  28. writeln;
  29. end;
  30. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement