Advertisement
Guest User

Untitled

a guest
Jul 20th, 2017
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.19 KB | None | 0 0
  1. program bintree;
  2.  
  3. const SIZE = 50;
  4.  
  5. var t:array[1..SIZE] of array[1..SIZE] of char;
  6.     i:integer;
  7.     j:integer;
  8. begin
  9.     for i:=1 to SIZE do for j:=1 to SIZE do
  10.     begin
  11.         t[i][j]:='A'
  12.     end
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement