Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a: array [1..30, 1..30] of real;
- i, j, n, x: integer;
- f1: text;
- s1: string;
- begin
- read(n);
- s1 := 'program1.pas';
- assign(f1, s1);
- rewrite(f1);
- for i := 1 to n do
- begin
- for j := 1 to n do
- begin
- x := random(10);
- write(f1, x:2);
- end;
- writeln(f1);
- end;
- close(f1);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement