fork download 
  1. program l3p4;
  2.  
  3. {$APPTYPE CONSOLE}
  4. {$CODEPAGE UTF8}
  5.  
  6. var
  7.    a: array of array of real;
  8.    n,sum,i,j: integer;
  9.  
  10. begin
  11.    randomize;
  12.  
  13.    write('Input n: '); read(n);
  14.    SetLength(a,n,n);
  15.    writeln; writeln;
  16.  
  17.    for i:=1 to n-1 do
  18.    begin
  19.        for j:=1 to n-1 do
  20.        begin
  21.            a[i,j]:=random(100);
  22.            write(a[i,j]:5:2,' ');
  23.        end;
  24.        writeln;
  25.    end;
  26.  
  27.    readln;
  28. end.
Success #stdin #stdout 0s 288KB
comments (?)
stdin 
5
stdout 
Input n: 

69.00 76.00 56.00 99.00 
 9.00 45.00  1.00 46.00 
43.00  4.00 57.00 83.00 
85.00 21.00 85.00 33.00
https://ideone.com/XEXosa
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!