fork download
copy 
  1. program Project1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. uses
  6.   Math;
  7. var
  8.   intNumber, intLoopX, intLoopY: Integer;
  9. begin
  10.   Randomize();
  11.  
  12.   for intLoopX := 0 to 9 do
  13.   begin
  14.     for intLoopY := 0 to 9 do
  15.     begin
  16.       intNumber := RandomRange(11, 51) * (-1 + Random(2) * 2); // ewentualnie popraw zakresy
  17.       Write(intNumber:4);
  18.     end;
  19.  
  20.     WriteLn();
  21.   end;
  22. end.
  23.  
Success #stdin #stdout 0s 444KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 -31 -18 -20 -27  16  47  12 -12  34 -32
  21  45  44 -44  20 -17  38  45  31 -22
  35  46  17 -12  27  20  21 -34 -14 -18
 -43 -48  50  26  20  41 -23  33  36 -45
  19  22 -11 -16  33  48  45 -22 -38  13
 -31  25 -27 -21 -23  30  38  25 -46 -34
 -39  23 -22  46  14  48 -36 -12 -27 -26
  21 -36 -41  22  15  49 -32  41  26 -24
 -21 -23  15  16  14  47  32  16  27  47
 -31 -43 -32 -31 -31 -29  45  24  17  30
https://ideone.com/QIQgNq
language:
Pascal (fpc 3.0.4)
created:
8 years ago
visibility:
secret

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!