welleyth

Pascal 2-dimensional arrays

Dec 2nd, 2020
433
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var i,j,n,m:int64;
  2.     A : array[0..10000,0..10000] of int64;
  3. begin
  4.  
  5.     read(n,m);
  6.  
  7.     for i:=1 to n do
  8.         for j:=1 to m do
  9.             read(A[i,j]]);
  10.  
  11.     for i:=1 to n do
  12.     begin
  13.         for j:=1 to m do
  14.             write(A[i,j],' ');
  15.         writeln()
  16.     end;
  17.  
  18. end.
RAW Paste Data