Евлампий
6 год назад
Дана последовательность из N чисел.определить сумму трех наибольших чисел
ОТВЕТЫ
Глеб
Aug 2, 2019
Begin
n1:=a[1]; n2:=n1; n3:=n2;
for i:=2 to n do
if (a[i]gt;n1) then begin
n3:=n2; n2:=n1; n1:=a[i]
end;
writeln(n1+n2+n3)
end.
n1:=a[1]; n2:=n1; n3:=n2;
for i:=2 to n do
if (a[i]gt;n1) then begin
n3:=n2; n2:=n1; n1:=a[i]
end;
writeln(n1+n2+n3)
end.
34
Смежные вопросы:
