fork download
copy 
  1. Program summa;
  2.   var a:array[1..10] of integer; i,s:integer;
  3. begin
  4.    for i:=1 to 10 do
  5.       begin
  6.         writeln('a[',i,']=');
  7.         read(a[i]);
  8.       end;
  9.    for i:=1 to 10 do if a[i]>0 then s:=s+a[i];
  10.    write('s=',s);
  11. end.
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
a[1]=
a[2]=
a[3]=
a[4]=
a[5]=
a[6]=
a[7]=
a[8]=
a[9]=
a[10]=
s=0
https://ideone.com/eySA8C
language:
Pascal (fpc 3.0.4)
created:
4 days 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!