// PascalABC.NET 3.3
begin
var a:=Arr(19, -78, -4, 0, 396, 996, 4, -3, 2, 0, 23);
a.Println;
Writeln('Сумма положительных элементов = ',a.Where(x->(x>0)).Sum);
Write('Среднее арифметическое элементов, кратных 4 = ');
Writeln(a.Where(x->(x mod 4=0)).Average);
Write('Элементы, порядковые номера которых кратны 3: ');
a.Where((x,i)->(i+1) mod 3=0).Println;
Write('Индексы элементов, значения которых нечётны: ');
var b:=a.IndexesOf(x->(x mod 2<>0)).ToArray;
b.Transform(x -> x+1); b.Println;
Writeln('max+min = ',a.Max+a.Min);
end.
Результат:
19 -78 -4 0 396 996 4 -3 2 0 23
Сумма положительных элементов = 1440
Среднее арифметическое элементов, кратных 4 = 232
Элементы, порядковые номера которых кратны 3: -4 996 2
Индексы элементов, значения которых нечётны: 1 8 11
max+min = 918