Бажен
4 год назад
Напишите программу, которая в последовательности целых чисел определяет сумму двух наибольших и сумму двух наименьших. Программа должна вывести две этих суммы в указанном порядке. Программа получает на вход целые числа, количество введённых чисел не известно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. В последовательности не менее двух чисел. На ПИТОНЕ. пожалуйста ....
ОТВЕТЫ
Kaarina Julia
Oct 24, 2020
var a,n,s:integer;
begin
n:=0; s:=0;
readln(a);
while a<>0 do
begin
n:=n+1;
if a mod 2=0 then s:=s+a;
readln(a);
end;
writeln('n = ',n,'s = ',s);
end.
не блогодари
533
Смежные вопросы:
