Предмет: Информатика, автор: lizok77774

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


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

Ответы

Автор ответа: iolandavalerypad353
0

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

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.


iolandavalerypad353: begin
var a := ReadSeqIntegerWhile(x -> x <> 0).Order.ToArray;
Print(a[0] * a[1])
end.
kookbak: Помогите пожалуйста с заданием https://znanija.com/task/31134955. Прошу вас
Похожие вопросы
Предмет: Математика, автор: kofekofeek382
Предмет: Математика, автор: karabak1999