ПАСКАЛЬ. Дана последовательность целых чисел, не превосходящих по модулю 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.
Ответ дал:
0
begin
var a := ReadSeqIntegerWhile(x -> x <> 0).Order.ToArray;
Print(a[0] * a[1])
end.
var a := ReadSeqIntegerWhile(x -> x <> 0).Order.ToArray;
Print(a[0] * a[1])
end.
Ответ дал:
0
Помогите пожалуйста с заданием https://znanija.com/task/31134955. Прошу вас
Похожие вопросы
2 года назад
2 года назад
8 лет назад
9 лет назад