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.