Question

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

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

№1

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

№2

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

№3

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