fork download
copy 
  1. program truffa;
  2. const
  3.     MAXN = 100000;
  4.  
  5. type elenco=array [0..MAXN-1] of longint;
  6. var
  7.     N, i, somma  : longint;
  8.     V     : elenco;
  9.  
  10.  
  11. Procedure scambia (var a,b: longint);
  12. var x:longint;
  13. begin
  14.    x:=a;
  15.    a:=b;
  16.    b:=x;
  17. end;  
  18. Procedure ordinamento (estremoi,estremos: longint; var u : elenco; ordinato:boolean);
  19. var inf, sup, medio:dword;
  20.     pivot :longint;
  21. begin
  22.     inf:=estremoi;
  23.     sup:=estremos;
  24.     medio:= (estremoi+estremos) div 2;
  25.     pivot:=u[medio];
  26.     repeat
  27.       if (ordinato) then
  28.          begin
  29.             while (u[inf]<pivot) do  inf:=inf+1;
  30.             while (u[sup]>pivot) do  sup:=sup-1;
  31.          end;
  32.       if inf<=sup then
  33.        begin
  34.          scambia(u[inf],u[sup]);
  35.          inf:=inf+1;
  36.          sup:=sup-1;
  37.        end;
  38.     until inf>sup;
  39.     if (estremoi<sup) then ordinamento(estremoi,sup,u,ordinato);
  40.     if (inf<estremos) then ordinamento(inf,estremos,u,ordinato);
  41. end;    
  42.  
  43. function sfangate(N: longint; var V: elenco): longint;
  44. var h, conta: longint;
  45. begin
  46.  
  47.     conta:=0;
  48.     if somma>0 then conta:=0
  49.               else
  50.                  begin
  51.                    h:=1;
  52.                    while (somma<=0) and (h<=N) do 
  53.                                    begin 
  54.                                      somma:=somma + (-2)*V[h];
  55.                                      conta:=conta+1;
  56.                                      h:=h+1;
  57.                                    end;
  58.                  end;                  
  59.     sfangate:=conta;                                 
  60. end;
  61.  
  62.  
  63. begin     
  64. (*assign(input,  'input.txt');  reset(input);
  65.     assign(output, 'output.txt'); rewrite(output);
  66. *)
  67.  
  68.     readln(N);
  69.     somma:=0;
  70.     for i:=1 to N do begin
  71.         read(V[i]);
  72.         somma:=somma+V[i];
  73.     end;
  74.  
  75.    ordinamento (1,N,V, true);
  76.    writeln (sfangate(N, V));
  77. end.
  78.  
Success #stdin #stdout 0.01s 5276KB
comments (?)
stdin
copy 
1000
-2335 -7402 -951 -4271 4116 -8968 9501 2087 9087 4274 -1945 -9186 -9650 1904 -7166 -8367 234 -1409 2376 6449 1369 -4003 1531 -4444 1647 -1369 -40 -6553 6077 -5636 -1606 8843 6515 7298 -4697 -9457 -8825 3336 7473 2574 6623 444 2197 -9879 6666 -8649 1261 3881 1976 3015 -1139 -5515 1886 -5950 -912 3645 6765 2763 -6268 -6041 -5375 5777 9180 -4708 -4530 -2852 2941 -9002 -9588 -3818 6013 -6403 499 -1195 8581 2544 -736 8714 7745 9903 2066 1349 8201 1180 1417 -9934 -6501 2298 -7529 3882 -2979 6091 -7035 -9169 -6475 6592 -5156 9048 -3715 -3610 -3176 -2477 -3547 -6296 5077 4710 9058 8794 -898 -8292 9967 -9150 960 758 444 -2873 -3295 -8653 -4977 9614 -3146 -5164 1900 1904 681 -2314 -8855 8989 -2725 -7930 4358 -6360 8125 5721 -8492 3777 9165 -8714 5950 -9633 -1239 -9104 8371 -5556 -9566 -1685 -9045 -4362 -8418 -319 5508 -5544 2377 -4898 5071 8984 -7372 5333 -995 -9370 -9862 -2284 2288 4414 -9992 -6109 -4390 -7135 -5357 -3391 -7040 1890 -8810 3521 -8196 1241 -904 -3645 2764 7806 -8687 -1433 928 -5250 -7897 -6513 9796 -2071 9645 4664 -8810 6174 -519 -6351 -9768 -5543 2854 -5463 252 203 -5789 -831 8174 -5704 -9755 160 -298 -4740 -3238 3149 4304 262 1173 -1622 -1222 2491 699 -8828 8401 4500 -9560 8654 -2435 -8183 5224 6214 -586 2385 9244 -1684 -4043 -6859 -812 -6402 2835 -4032 -1561 -4698 7858 1797 5038 -8929 4582 -7731 -5647 8006 -6898 4271 9010 2173 -5320 -8506 -396 -9749 2179 -4886 -7431 4622 6636 -8655 -690 293 2572 -230 -7825 4173 6527 -9890 4410 7424 880 1793 9717 -9556 -8815 -7890 448 1374 -509 2520 -4378 -6812 4431 1241 -2643 -3099 -1296 -6862 -1177 -799 8667 -6626 7856 -5809 1518 6614 -8977 6317 5079 -9862 -6188 -7925 -5973 -3779 1352 -8636 -3161 -4841 -4557 -7505 688 7850 401 -8693 1271 -4441 7788 -5338 1368 -8068 -6458 -6728 -9502 7565 -1121 -479 -5589 6353 -4382 6141 -5701 7451 448 -4237 -6976 8456 -1285 -3581 4988 -9896 -960 -5231 -4974 9692 -7680 7926 -4303 9733 -3380 -9121 -8929 -4458 -5723 3001 -3007 -2009 -1434 5752 3700 -7254 3325 2830 4716 8309 -2506 5707 -879 6413 -8443 -7116 -9188 -3228 -7261 846 8076 1549 -6679 -9657 -3164 -7474 -9560 -8656 5516 -2805 -2924 -1716 2758 568 -9433 -7150 -6896 -5912 647 -9651 -1663 517 7372 1307 -1406 9621 4861 8359 -4445 -3780 8380 2722 -765 -5415 3088 374 5628 -661 -5754 6594 -7692 9878 -6457 -9315 9088 7107 -3309 3583 -2651 -9749 4840 -5578 -1914 -6944 8063 -9875 -3698 -6497 4421 8315 9969 6309 -7463 1329 -3730 6622 -3783 -5776 -1984 5513 -7266 7263 -6409 -9217 4449 3257 -2335 -4179 8509 -9073 -8512 5613 -1427 837 3938 9482 8524 7814 -6947 -6548 9067 -1585 -2156 -561 4991 -4044 5128 -5752 6740 -3847 -816 7879 -7192 7727 -8296 -4849 158 8236 8388 2106 -7396 6581 1086 -5680 8618 3603 -243 -5344 -768 -1647 -7734 -5815 793 1681 8535 -3577 -6312 9371 -8356 -7420 3452 -3436 -1482 -4384 -7907 -6022 -3838 -5816 1772 8551 6953 6280 -4154 -2684 -8431 8008 -2212 6810 3060 -6608 4354 7416 7187 -4060 -1123 -9225 -6324 -2262 -4093 6190 9173 527 9365 -7135 -1789 -6712 -8601 6723 7767 -2757 924 -8851 754 -5270 -6236 6479 6885 -1842 -3272 6890 -6202 -3500 -6067 5251 -2949 -810 473 6046 8772 -2886 2475 -7712 3442 -5634 -8074 -7267 -6303 -627 -8316 4242 9289 -997 -915 -2329 -6543 -3733 6049 -2978 1353 -8547 -7097 -4491 5204 -3791 3553 9176 -7732 -3696 7514 5504 5124 -9009 9477 -7414 4287 -5511 -2918 -5112 -7389 7607 -1135 -8214 -1152 5475 -7971 -2389 -545 139 6051 -7822 -3167 -8156 261 -9717 261 1111 5819 -7776 8640 -3678 -7809 7086 -1733 -9633 -8957 1914 -8963 1875 -9952 -2209 -1545 9308 -7191 3751 2281 -2664 -6498 958 -3884 -4089 4553 -2608 -1334 -4288 -2828 2871 4592 8817 -8807 -2558 -5191 -5327 229 29 -9333 4211 2005 -4230 9815 7384 4581 -9227 1887 -9800 -2348 802 835 3 -8499 -4267 -5225 -5510 1181 -9947 -4762 5121 -3742 -1306 4912 -5590 4925 1091 -1696 -6771 -3536 -2474 9424 -8506 172 8852 168 -4231 7752 7811 -1445 2305 5339 -891 -768 5381 6196 7167 -1480 5816 2620 7137 -3779 -8491 6947 9903 -4555 8510 -3677 -1969 -8049 -8606 -706 -8192 -7134 6309 3541 6914 2829 -3458 -2575 -6735 -250 3763 -9287 -7970 -1050 4190 4357 -6029 -4833 2640 -9264 -2832 -3700 -2240 7828 1656 -5818 7001 123 166 -1827 3140 -7792 3705 -5329 2676 -3615 2734 -2468 6911 9627 -443 -2114 2390 5673 5372 -3854 8626 -4397 955 -1107 7280 -8556 3225 9394 2390 9891 4675 -633 72 -6749 -1271 7646 -5287 -356 -206 5000 7202 -6948 -67 885 5104 7429 -8385 3194 -4594 -6533 -9182 6831 3210 -9417 4409 6420 7072 -3922 7979 -7768 6251 6072 -1558 -4379 9533 -7132 6982 1076 9864 -8868 5210 -3289 -4213 -3622 186 -6333 6520 6797 -2038 -674 5859 -1855 2240 -5610 -7261 -9928 -968 -9615 7861 1930 7974 -3235 -1574 1315 -8396 9706 2852 -3024 -7492 -6223 2468 9004 1014 6737 9689 95 7019 -3575 9943 -3699 -6317 -2954 -5704 5481 -8463 4732 -6350 4772 -1410 -8551 -9776 -7448 145 -4198 7651 -5332 -48 8522 -1932 -1837 8946 5458 -8492 1337 1481 -1654 5893 3535 52 -9713 8208 -3564 -5072 -6790 -3627 8461 -4272 -5503 -940 -8718 8334 -8469 -7405 4861 355 -6255 4739 -2795 -9265 9899 -1681 -415 -8016 -9856 -4110 -4053 547 6936 4237 7033 -1175 9320 2937 739 264 1440 9897 -7497 9378 -1505 -9779 390 -1078 2198 -6234 8685 -115 -5558 1626 -4087 -9368 -3520 -2397 -8042 -5355 -7309 5203 2758 -5524 8126 -6688 -620 -2772 -4212 242 2157 6532 7316 2510 -9387 7966 -220 6799 525 -6804 -993 -7329 8036 960 -7373 -1063 -9687 -8549 443 9771 -3450 -6235 -6918 3333 -5103 -2791 -2527 -821 -6079 9039 -5946 -904 -5010 2885 -3846 3095 -4065 5164 -6067 -390 -2141 8734 1470 -6526 1085 -2141 -2970 -2404
stdout
copy 
34
https://ideone.com/Y5WkbP
language:
Pascal (fpc 3.0.4)
created:
1 day 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!