Найдите произведение первых 10 элементов массива A состоящего из 50 элементов.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!beginvar a:= ArrRandom(50,1,15);a.Println;Writeln(a.Where((v,i)-> i < 10).Aggregate(biginteger(1),(x,y)->x*y));end.Пример:10 3 11 2 12 9 12 14 1 4 1 2 1 14 1 10 14 13 10 14 12 1 3 3 7 2 4 4 11 12 7 7 11 8 15 3 9 9 2 5 13 13 3 14 14 3 14 13 3 547900160

//PascalABC.NET//Версия 3.3, сборка 1611beginwrite('массив: ');var a:=ArrRandom(50,-10,10).Println();write('произведение 10: ',a.Slice(0,1,10).Aggregate(Real(1),(x,y)->x*y));end.