Предмет: Информатика,
автор: lizok77774
ПАСКАЛЬ. Дана последовательность целых чисел, не превосходящих по модулю 10000. Ноль - признак конца. Вывести минимальное произведение даух элементов этой помледовательности. решите, пожалуста, наиболее просто.
Ответы
Автор ответа:
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.
var a := ReadSeqIntegerWhile(x -> x <> 0).Order.ToArray;
Print(a[0] * a[1])
end.
Похожие вопросы
Предмет: Геометрия,
автор: alessanastepankin
Предмет: Математика,
автор: kofekofeek382
Предмет: Физика,
автор: jjgdchhgr
Предмет: Математика,
автор: karabak1999
Предмет: Математика,
автор: polyadmitriewa
begin
var a := ReadSeqIntegerWhile(x -> x <> 0).Order.ToArray;
a.Println;
Print(a[0] * a[1])
end.