Код:
Program Files;
const M=100;
type arr=1..M;
var N,i,k:arr;
L:array[arr] of word;
Temp:word;
Log:array[arr,1..3] of longint;
T:longint;
begin
readln(N);
for i:=1 to N do
readln(L[i]);
for k:=N-1 downto 1 do
for i:=1 to k do
if L[i]>L[i+1] then
begin
Temp:=L[i];
L[i]:=L[i+1];
L[i+1]:=Temp
end;
T:=0;
for i:=1 to N-1 do
begin
Log[i,1]:=L[i];
Log[i,2]:=L[i+1];
Temp:=L[i]+L[i+1];
Log[i,3]:=Temp;
T:=T+Temp;
k:=i+1;
while (k<N) and (Temp>L[k+1]) do
begin
L[k]:=L[k+1];
k:=k+1
end;
L[k]:=Temp;
end;
writeln(T);
for i:=1 to N-1 do
begin
for k:=1 to 3 do write(Log[i,k]:7);
writeln
end;
readln
end.
All Rights Reserver
Dreamer 2007