fork(1) download
copy 
  1. program asd;
  2. var t:array of array of Integer;
  3. var n,y,x: integer;
  4. begin
  5.   Randomize;
  6.   WriteLn('Podaj liczbę n');
  7.   ReadLn(n);
  8.   SetLength(t,n,n);
  9.   for y:=0 to n-1 do
  10.   begin
  11.     for x:=0 to n-1 do
  12.     begin
  13.       t[y,x]:=random(100);
  14.       Write(t[y,x]:3);
  15.     end;
  16.     WriteLn;
  17.   end;
  18.   ReadLn;
  19. end.
  20.  
  21.  
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
5
stdout
copy 
Podaj liczbę n
  5 83 38 85 97
 96 61 25 54 61
 63 99 68 35 38
  5 32 26 26  1
 58 32 44 90  4
https://ideone.com/lM5mEh
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!