fork download
  1. program hike;
  2. const MAXN =1000;
  3. var N,i :integer;
  4. altitudine:Longint;
  5. D : array[1..MAXN] of integer;
  6. begin
  7. readln(N);
  8. altitudine:=3000;
  9. for i:=1 to N do
  10. begin
  11. read(D[i]);
  12. altitudine:=altitudine+D[i];
  13. end;
  14. readln;
  15. writeln(altitudine);
  16. end.
Success #stdin #stdout 0s 5316KB
stdin
639
-1 2 -1 3 2 3 2 2 1 -3 3 0 3 -2 2 -3 -2 -3 -1 0 3 -2 0 1 -3 1 -2 -3 2 -2 0 -1 -2 3 3 0 -2 3 3 -3 -2 1 1 0 -2 -2 -3 3 -3 -2 3 -2 -2 3 -2 -1 -1 -2 1 2 2 -2 -2 2 -2 0 -1 -3 -1 0 -2 -2 -1 -3 -1 -1 3 1 1 -3 1 2 2 -1 -3 -1 -1 3 -1 0 2 -1 -2 0 0 2 -2 -3 -1 -3 2 -1 3 0 -3 1 3 0 -1 0 1 3 -3 0 -3 2 -2 1 -2 -3 3 -2 3 0 -1 1 -1 1 -1 3 0 -3 1 2 3 3 -1 3 -1 -3 0 -3 -2 -1 1 1 -1 -2 -1 -1 2 1 -3 -1 2 -1 -1 -2 3 -3 2 -2 2 2 -1 0 -2 2 -3 -3 1 1 0 -3 -2 2 1 -1 3 -1 0 2 0 -2 -3 2 -3 3 0 -1 3 -2 -2 2 1 -2 2 3 0 -3 -2 0 -1 -2 -3 3 0 -1 -2 0 1 3 -2 1 0 0 2 2 -1 0 -1 -1 0 0 -2 -3 0 3 1 -2 2 0 3 -1 -2 -3 0 -1 1 3 1 3 1 -1 -3 3 3 3 -1 2 1 2 -3 3 -1 -1 1 2 2 -1 3 0 -1 3 2 2 -1 -1 2 -2 1 3 -3 0 1 3 -1 -1 2 -1 0 -1 3 1 2 2 3 -1 -1 -1 2 -1 2 3 0 -1 3 -2 3 3 2 0 -1 -1 1 -2 1 -2 -2 3 -1 3 0 -1 2 -3 2 2 2 0 -2 1 3 1 1 2 0 -1 1 1 3 3 2 -1 2 -3 -2 -2 1 0 1 2 -2 -2 3 2 -2 2 2 -3 0 -2 -2 -3 -2 -3 -1 -2 0 -2 1 -3 0 0 -1 0 2 1 -3 1 -2 -2 2 -1 -3 -1 0 -1 3 0 3 -3 2 3 1 -1 -3 1 1 -1 -3 -1 1 1 -1 1 -1 -1 3 -2 0 0 3 1 2 1 -1 0 -2 -2 1 0 1 0 -2 -2 1 -3 -1 3 2 -3 0 -3 -1 1 1 1 -2 -1 2 1 0 0 0 -2 0 -1 0 2 0 0 3 -2 1 1 -1 2 -1 0 -1 0 -3 -1 -1 0 -1 -2 0 -3 -3 2 1 0 -2 -1 -3 3 -2 3 0 -3 0 1 1 -1 -2 0 3 -3 -2 0 -1 3 -2 2 -1 -1 0 1 0 1 2 3 1 2 -3 -3 3 -2 -1 -1 1 2 -1 1 -1 2 1 -3 0 -1 -1 2 2 3 1 -2 -3 -3 -1 1 0 2 -3 2 1 -2 -3 0 3 3 0 1 1 2 2 2 2 0 3 3 0 0 0 2 3 2 -2 -1 0 3 3 -3 -1 3 -3 2 3 0 1 -1 2 3 0 -1 -2 -2 0 2 1 0 -1 1 -2 0 1 1 3 -3 -3 2 -2 -1 3 -3 3 -3 2 -3 -1 2 0 -3 0 2 0 -3 -3 3 -3 -2 1 2 3 -3 2 -2 -1 2 0 -2 -2 1 -2 0 3 -2 -3 1 -2 -3 1 -3 2 0 2 -3 -1 -3 1 1 -3 2 0 1 -2 -3 0

stdout
2991