• API
• FAQ
• Tools
• Archive
SHARE
TWEET # BANHCHUNG a guest Mar 24th, 2019 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. var a:array[0..1000000] of longint;
2.     i,j,m,n:longint;
3. procedure sort(l,r: longint);
4.     var
5.         i,j,x,y: longint;
6.     begin
7.         i:=l;
8.         j:=r;
9.         x:=a[(l+r) div 2];
10.         repeat
11.             while a[i]<x do
12.                 inc(i);
13.             while x<a[j] do
14.                 dec(j);
15.             if not(i>j) then
16.                 begin
17.                     y:=a[i];
18.                     a[i]:=a[j];
19.                     a[j]:=y;
20.                     inc(i);
21.                     j:=j-1;
22.                 end;
23.         until i>j;
24.         if l<j then
25.             sort(l,j);
26.         if i<r then
27.             sort(i,r);
28.     end;
29. begin
30.     // assign(input,'banhchung.inp');
31.     // reset(input);
32.     // assign(output,'banhchung.out');
33.     // rewrite(output);
35.     for i:=1 to m do
36.         begin
38.         if a[i]=n then
39.             begin
40.                 write(n);
41.                 halt;
42.             end;
43.         end;
44.     sort(1,m);
45.     if a>n then
46.         begin
47.             write(0);
48.             halt;
49.         end;
50.     i:=1;
51.     j:=m;
52.     while (a[i]+a[j]>n) and (i<>j-1) do
53.         dec(j);
54.     while (a[i]+a[j]>n) and (i+1<>j) do
55.         inc(i);
56.     if a[i]+a[j]>n then
57.         begin
58.             for j:=j to m do
59.                 if a[j]>n then exit;
60.             if a[j]>n then dec(j);
61.             a[i]:=0;
62.         end;
63.     write(a[i]+a[j]);
64. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.

Top