uses crt; var a:array[1..1000000] of int64; n,i,max,mx:longint; begin clrscr; readln(n); for i:=1 to n do read(a[i]); max:=a[1];mx:=a[1]; for i:=2 to n do begin if a[i] > max then max:=a[i]; if (mx < max) and (a[i] > mx) and (a[i] < max) then mx:=a[i]; end; writeln(max+mx); readln end.
uses crt; var i,n,vt,vt1:longint; a:array[1..10000000]of longint; begin clrscr; readln(n); for i:=1 to n do read(a[i]); readln; for i:=1 to n do if a[i]>a[vt] then vt:=i; for i:=1 to n do if (i<>vt)and(a[i]>a[vt1]) then vt1:=i; writeln('Tong 2 phan tu lon nhat trong mang: ',a[vt]+a[vt1]); readln end.
