Напишите программу, которая находит произведение - вопрос №1489873 от lilia104 13.07.2022 11:23

Question

Информатика: Напишите программу, которая находит произведение двух наибольших чисел из последовательности натуральных чисел. программа получает на вход натуральные числа, количество чисел неизвестно (но не менее двух), ввод последовательности заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. значения чисел не превышают 30000. программа должна вывести одно число: произведение двух чисел, значения которых в данной последовательности наибольшие

lilia104 · Answer

var temp,max,max2:integer;

begin

readln(temp);

max:=0;

max2:=0;

while (temp<>0) 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.