Предмет: Информатика, автор: vavilovaksyush

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

Ответы

Автор ответа: dddd66
0
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.
Похожие вопросы
Предмет: Литература, автор: Anastasiya3107