fork download
copy 
  1. program ideone;
  2. uses Crt;
  3.  
  4. var
  5.     n : array [1..10] of integer;
  6.     i, f : integer;
  7.  
  8. begin
  9.     randomize;
  10.  
  11.     for i := 1 to 10 do
  12.         n[i] := random (11) -5;
  13. 	f := 0;
  14.  
  15. 	write('Our random numbers are: ');
  16. 	for i := 1 to 10 do
  17. 	    write(n[i], '; ');
  18. 	writeln();
  19.  
  20.     for i := 1 to 10 do
  21.         if n[i] > 0 then
  22.             f := f + n[i];
  23.     writeln('Result: ', f);
  24. end.
  25.  
Success #stdin #stdout 0s 320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Our random numbers are: -4; -3; 5; -3; -5; 4; 0; 0; -1; -2; 
Result: 9
https://ideone.com/L7yNtU
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!