fork download
  1. Program icecubes;
  2. const
  3. MAXN = 100000;
  4.  
  5. var
  6. N, ans, i, count : LongInt;
  7. C : Array[0..MAXN-1] of LongInt;
  8.  
  9. begin
  10. (*assign(input, 'input.txt'); reset(input);
  11.   assign(output, 'output.txt'); rewrite(output);*)
  12.  
  13. ReadLn(N);
  14.  
  15. count:=0; ans :=0;
  16.  
  17. for i:=0 to N-1 do
  18. begin
  19. Read(C[i]);
  20. if C[i]<>0 then begin count:=count+1; ans:=ans+C[i]; end;
  21. end;
  22. ReadLn();
  23.  
  24. ans:=ans-count;
  25.  
  26. WriteLn(ans);
  27.  
  28. end.
  29.  
Success #stdin #stdout 0.01s 5288KB
stdin
5
0 3 1 0 5
stdout
6