Cho dãy số gồm n phần tử
Tìm 3 số a,b,c trong dãy sao cho tổng S=a^2+b^2+c^2 đạt giá trị lớn nhất
Ví dụ:
– Input: n=5
Dãy là: 3 1 5 2 6
– Output: 70
Giải thích: Tổng lớn nhất là: S=3^2+5^2+6^2=70
Cho dãy số gồm n phần tử
Tìm 3 số a,b,c trong dãy sao cho tổng S=a^2+b^2+c^2 đạt giá trị lớn nhất
Ví dụ:
– Input: n=5
Dãy là: 3 1 5 2 6
– Output: 70
Giải thích: Tổng lớn nhất là: S=3^2+5^2+6^2=70
Bạn xử lí dựa trên cơ sở 3 số lớn nhất thôi nha còn cái output ra chỉ là 1 phép tính nhỏ vs 3 số lớn nhất đã tìm ra.
procedure xuly;
var max,max1,max2,s,i:integer;
begin
max := a[1];
max1 := a[1];
max2 := a[1];
for i := 1 to n do
begin
if max < a[i] then max := a[i];
end;
for i := 1 to n do
begin
if max1 <> max1 then
if max1 < a[i] then max1 := a[i];
end;
for i := 1 to n do
begin
if (max2 <> max1) and (max2 <> max) then
if max2 < a[i] then max2 := a[i];
end;
s := max*2+max1*2+max2*2;
write(f,s);
end;