Nhập vào một mảng,in ra tổng của hai phần tử có giá trị lớn nhất có trong mảng Vd: 3 3 4 5 in ra 8 do 3+5=8

0 bình luận về “Nhập vào một mảng,in ra tổng của hai phần tử có giá trị lớn nhất có trong mảng Vd: 3 3 4 5 in ra 8 do 3+5=8”

1. 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.

   Bình luận

2. 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.

   Bình luận