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

Question

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

Comments

//вопрос в том, что для вас является наиболее простым способомbegin var a := ReadSeqIntegerWhile(x -> x <> 0).Order.ToArray; a.Println; Print(a[0] * a[1])end.

---

a.Println; выводит отсортированный массив, по условию это не нужно, можете убрать эту строку из программы

Answer 1

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

begin

 var x: integer;

 Read(x);

 var min1 := MaxInt;

 var min2 := MaxInt;

 repeat

   if x

   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.

Comments

beginvar a := ReadSeqIntegerWhile(x -> x <> 0).Order.ToArray;Print(a[0] * a[1])end.

---

Помогите пожалуйста с заданием https://znanija.com/task/31134955. Прошу вас