// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandom(10,-20,20); a.Println; Writeln('Сумма элементов ',a.Sum); Writeln('Произведение элементов ',a.Aggregate(1,(m,n)->m*n)); Writeln('Сумма четных чисел ',a.Where(x->x.IsEven).Sum); end.
Пример 13 18 9 -4 -13 5 -9 1 16 -5 Сумма элементов 31 Произведение элементов 394243200 Сумма четных чисел 30
Задание 4
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandom(ReadInteger('N='),-20,20); a.Println; Writeln('Максимальный элемент A[',a.IndexMax+1,']=',a.Max); Writeln('Минимальный элемент A[',a.IndexMin+1,']=',a.Min); end.
Пример N= 13 12 7 13 8 -19 -19 -2 3 11 8 -3 -1 3 Максимальный элемент A[3]=13 Минимальный элемент A[5]=-19
2 = 1111101
16 = 7D
8 = 175