fork download
copy 
  1. program ideone;
  2. begin
  3. var Liczba:array[1..10] of integer;
  4. var wynik:integer;
  5. wynik:=0;
  6. var i,q:integer;
  7. for q:=1 to 10 do 
  8. begin
  9. read(Liczba[q]);
  10. end;
  11.  for i:=1 to 10 do
  12.  wynik:=wynik+Liczba[i];
  13.  writeln(wynik);
  14. end.
  15.  
Success #stdin #stdout 0.01s 5464KB
comments (?)
stdin
copy 
1
1
1
1
1
0
1
1
1
1
1
1
1
1
1
stdout
copy 
9
https://ideone.com/aVeBYz
language:
Pascal (gpc 20070904)
created:
1 year 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!