Advertisement
Guest User

Untitled

a guest
Jan 18th, 2018
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.33 KB | None | 0 0
  1. var
  2.   a: array [1..30, 1..30] of real;
  3.   i, j, n, x: integer;
  4.   f1: text;
  5.   s1: string;
  6.  
  7. begin
  8.   read(n);
  9.   s1 := 'program1.pas';
  10.   assign(f1, s1);
  11.   rewrite(f1);
  12.   for i := 1 to n do
  13.   begin
  14.     for j := 1 to n do
  15.     begin
  16.       x := random(10);
  17.       write(f1, x:2);
  18.     end;
  19.     writeln(f1);
  20.   end;
  21.   close(f1);
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement