Advertisement
smay

Untitled

Feb 1st, 2016
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.29 KB | None | 0 0
  1. program p1;
  2. var
  3.       f:text;
  4.       n,m,i,j:word;
  5.       a:array[1..50,1..50] of real;
  6. begin
  7. assign(f,'output.txt');
  8. reset(f);
  9. read(f,n);
  10. read(f,m);
  11. for i:=1 to n do
  12.  begin
  13.  for j:=1 to m do
  14.   begin
  15.     read(f,a[i,j]);
  16.     write(a[i,j]:4);
  17.   end;
  18.   writeln;
  19.  end;
  20. close(f);
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement