===== PascalABC.NET =====
begin
var n := ReadInteger('Укажите длину массива:');
var a:= ArrRandom(n, -99, 99);
Println('Исходный массив:');
a.Println;
Println('Cумма всех элементов массива:', a.Sum);
Println('Произведение всех элементов массива:',
a.Aggregate(BigInteger.One, (p, q) -> p*q));
Println('Сумма квадратов всех элементов массива:',
a.Sum(p -> p * p));
Println('Сумма шести первых элементов массива:',
a?[:6].Sum);
var (k1, k2) := ReadInteger2('Введите k1 и k2:');
Println('Сумма элементов массива с', k1, 'по', k2, 'равна',
a?[k1-1:k2].Sum);
Println('Среднее арифметическое всех элементов массива:',
a.Average);
var (s1, s2) := ReadInteger2('Введите s1 и s2:');
Println('Среднее арифметическое элементов массива с', s1,
'по', s2, 'равно', a?[s1-1:s2].Average)
end.