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) * RandomFrom([Integer(1), -1]);
  17.       Write(intNumber:4);
  18.     end;
  19.  
  20.     WriteLn();
  21.   end;
  22. end.
  23.  
Success #stdin #stdout 0s 448KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 -12  16  30  37  34  49 -45  38 -28  33
 -48  27  43  19 -23  43 -25  46 -46  35
 -16 -29  26 -11 -39 -18  18  49  11 -27
  44 -33 -44 -14 -49  27 -22  27  15  21
  36  37 -41 -16  18  13  20  41 -47 -38
 -26  16 -23  29 -25 -13  35 -19 -39 -42
 -20  41 -35 -24  31 -15  30 -39  26  29
  19 -27  29 -29 -38 -29 -17  46 -33 -32
 -45  38 -46  49  33 -19 -49 -42 -44 -18
  25  22  31 -29  39  49  27 -30  16  27
https://ideone.com/EdUv60
language:
Pascal (fpc 3.0.4)
created:
8 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!