fork download
copy 
  1. program szorzat;
  2. var a:array [1..10] of integer;
  3.     i: integer;
  4.     prod: longword;
  5. begin
  6.   randomize;
  7.   prod:=1;
  8.   for i:=1 to 10 do
  9.   begin
  10.     a[i]:=1+random(30);
  11.     writeln('a[',i,']= ',a[i]);
  12.     prod:=prod*a[i];
  13.   end;
  14.   writeln('szorzat = ',prod);
  15.   readln;
  16. end.
Success #stdin #stdout 0s 9136KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
a[1]= 14
a[2]= 21
a[3]= 29
a[4]= 1
a[5]= 21
a[6]= 18
a[7]= 27
a[8]= 26
a[9]= 8
a[10]= 28
szorzat = 506783257344
https://ideone.com/fasJ5B
language:
Pascal (gpc 20070904)
created:
6 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!