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

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;