Question

Решите, пожалуйста! Дана последовательность целых чисел, не превосходящих по модулю 10000. Ноль – признак конца. Вывести минимальное произведение двух элементов этой последовательности.

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqIntegerWhile(t->t<>0).OrderBy(t->t).ToArray;
  var k:=a.Length-1;
  var p:=a[0]*a[k];
  if p<0 then Writeln(p)
  else
    if a[0]<0 then Writeln(a[k-1]*a[k])
    else Writeln(a[0]*a[1])
end.

Answer 2

Автоприем роботом "Знания" решения, как верного. Робот режет все комментарии для архивации.

Answer 3

ясно

Answer 4

а мои не удалены

Answer 5

А может, кто-то из модераторов углядел что-то лишнее.

Answer 6

хм