fork download
  1. program ideone;
  2. const N=10000;
  3. var
  4. a : array [1..N] of integer;
  5. sum, elcount, maxsum, i, k, j: integer;
  6. begin
  7. maxsum:=0;
  8. sum:=0;
  9. elcount:=0;
  10. for i:=1 to N do begin
  11. readln(a[i]);
  12. if (a[i] = 0) then begin elcount:=i-1; break; end
  13. end;
  14. for i:=1 to N-1 do begin
  15. for j:=i+1 to N do begin
  16. if (a[i]<a[j]) then begin sum:=a[j]-a[i]+sum; maxsum:=sum; end
  17. else sum:=0;
  18. end;
  19. end;
  20. writeln('Получено ', elcount, ' чисел');
  21. if (maxsum=0) then writeln('Наибольшая высота подъема: ', 0) else writeln('Наибольшая высота подъема - ', maxsum);
  22. end.
Success #stdin #stdout 0.11s 9216KB
stdin
144
17
27
3
7
9
11
10
0
stdout
Получено 8 чисел
Наибольшая высота подъема - 3