Tìm Tổng MAX

SUBMITTED BY: Guest

DATE: Nov. 21, 2014, 10:11 a.m.

FORMAT: Text only

SIZE: 858 Bytes

Raw Download

HITS: 1219

Report
  1. PROGRAM Tongmax;
  2. USES crt;
  3. VAR a:ARRAY[1..10000] OF LONGINT;
  4. f1,f2:TEXT;
  5. S,k,l,n,i,smax,kmax,lmax: LONGINT;
  6. PROCEDURE Ganvadoc;
  7. VAR i:LONGINT;
  8. BEGIN
  9. Assign(f1,'Tongmax.INP');
  10. Assign(f2,'Tongmax.OUT');
  11. Reset(f1);
  12. Rewrite(f2);
  13. Readln(f1,N);
  14. FOR i:= 1 TO N DO
  15. Readln(f1,a[i]);
  16. Close(f1);
  17. END;
  18. PROCEDURE Timtongmax;
  19. BEGIN
  20. k:=N;
  21. smax:= -10000000 ;
  22. FOR l:=1 TO N DO
  23. BEGIN
  24. REPEAT
  25. BEGIN
  26. FOR i:=l TO k DO
  27. S:= a[i] + S;
  28. IF S> Smax THEN
  29. BEGIN
  30. Smax:=S;
  31. lmax:=l;
  32. kmax:=k;
  33. END;
  34. END;
  35. dec(k);
  36. S:=0;
  37. UNTIL l>k;
  38. k:=N;
  39. END;
  40. END;
  41. PROCEDURE Vietra;
  42. BEGIN
  43. Writeln(f2,lmax);
  44. Writeln(f2,kmax);
  45. Write(f2,Smax);
  46. Close(f2);
  47. END;
  48. BEGIN
  49. Ganvadoc;
  50. Timtongmax;
  51. Vietra;
  52. END.
comments powered by Disqus