Question

ПАСКАЛЬ. Дана последовательность целых чисел, не превосходящих по модулю 10000. Ноль - признак конца. Вывести минимальное произведение даух элементов этой помледовательности. решите, пожалуста, наиболее просто.

Answer 1

//произведение двух минимальных чисел в последовательности

begin

 var x: integer;

 Read(x);

 var min1 := MaxInt;

 var min2 := MaxInt;

 repeat

   if x <= min1 then

   begin

     min2 := min1;

     min1 := x

   end

   else if x < min2 then

     min2 := x;

   Read(x);

 until x = 0;

 if (min1 <> MaxInt) and (min2 <> MaxInt) then

   Print(min1 * min2)

end.