Дана последовательность из N чисел.определить сумму трех наибольших чисел
Дана последовательность из N чисел.определить сумму трех наибольших чисел
Гость
Ответ(ы) на вопрос:
Гость Begin
n1:=a[1]; n2:=n1; n3:=n2;
for i:=2 to n do
if (a[i]>n1) then begin
n3:=n2; n2:=n1; n1:=a[i]
end;
writeln(n1+n2+n3)
end.
Не нашли ответ?
Похожие вопросы