ПОЖАЛУЙСТА,Пожалуйста посчитайте1.Сформировать и вывести в строчку целочисленный массив размера 20,содержащий 20 положительных чисел: 1,2,3....2.Вывести массив из 20 случайных чисел.Найти произведение элементов.3.Дан массив размера 40.Найти номер максимального элемента.

begin
  var a:=ArrGen(20,i->i+1); a.Println;
end.


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20



begin
  var a:=ArrRandom(20,-99,99); a.Println;
  Writeln('П = ',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.


92 6 39 -33 34 -22 -97 52 58 55 -42 -59 -15 -19 -91 76 -69 82 -19 -69
П = -309778851231495493804367495884800



begin
  var a:=ArrRandom(40,-99,99); a.Println;
  Writeln('Номер максимального элемента = ',a.IndexMax+1)
end.


-30 85 -57 -5 -64 20 48 83 19 -32 -56 10 21 83 78 20 89 -5 71 -78 -59 88 -10 -94 -80 -58 24 37 -1 66 -71 -9 43 55 -14 -79 -33 -19 -34 68
Номер максимального элемента = 17