Advertisement
Guest User

Untitled

a guest
Jan 17th, 2020
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.30 KB | None | 0 0
  1. var
  2. n, t, i, j:integer;
  3. a:array[1..100,1..100] of integer;
  4. begin
  5. readln(n);
  6. for i := 1 to n do
  7. for j := 1 to n do
  8. read(a[n - j + 1,n - i + 1]);
  9. writeln();
  10. for i := 1 to n do
  11. begin
  12. for j := 1 to n do
  13. write(a[i,j] , ' ');
  14. writeln;
  15. end;
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement