fork download
copy 
  1. program osszeg;
  2. var a:array [1..10] of integer;
  3.     i,sum:integer;
  4. begin
  5.   sum:=0;
  6.   for i:=1 to 10 do
  7.   begin
  8.     a[i]:=random(30);
  9.     writeln('a[',i,']= ',a[i]);
  10.     sum:=sum+a[i];
  11.   end;
  12.   writeln('osszeg = ',sum);
  13.   readln;
  14. end.
Success #stdin #stdout 0s 9136KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
a[1]= 23
a[2]= 9
a[3]= 7
a[4]= 14
a[5]= 0
a[6]= 17
a[7]= 4
a[8]= 14
a[9]= 17
a[10]= 0
osszeg = 105
https://ideone.com/jzjAOo
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!