Напишите программу, которая находит произведение двух наибольших ...
Напишите программу, которая находит произведение двух наибольших чисел из последовательности натуральных чисел. Программа получает на вход натуральные числа, количество чисел неизвестно (но не менее двух), ввод последовательности заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Значения чисел не превышают 30000. Программа должна вывести одно число: произведение двух чисел, значения которых в данной последовательности наибольшие
Есть ответ
17.12.2022
388
Ответ
var temp,max,max2:integer;
begin
readln(temp);
max:=0;
max2:=0;
while (temp0) do begin
if(temp>max) then begin max2:=max; max:=temp; end
else if(temp>max2) then max2:=temp;
readln(temp);
end;
writeln(max*max2)
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
