Заполните массив случайными числами в интервале [0,1000] и выведите номера двух соседних элементов, произведение которых наибольшее
Паскаль. Выполнить с помощью рандома

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),0,1000); a.Println;  var i:=a.Pairwise.Select(x->x[0]*x[1]).ToArray.IndexMax;  Writeln('Элементы ',i+1,' и ',i+2,' дают произведение ',a[i]*a[i+1])end.Примерn= 15115 263 63 193 374 685 174 755 728 654 979 274 93 994 411Элементы 10 и 11 дают произведение 640266