Даны три числа. Определить сумму двух наибольших чисел из набора.

Question

Даны три числа. Определить сумму двух наибольших чисел из набора.

Answer 1

Begin
  var a:=Seq(1,3,6);
  Writeln(a);  
  Writeln((a.SplitAt(2).Item1).Max+((a.SplitAt(2).Item1).Max+a.SplitAt(2).Item2).Max);
end.

Comments

begin
var a := Seq(1, 3, 9);
write('Даны три числа - ');
a.Println;
var b := (a.SplitAt(2).Item1).Max;
var c := (b + a.SplitAt(2).Item2).Max;
write('Cумма двух наибольших чисел - ');
if (b = c) then Writeln(b)
else Writeln(b + c);
end.