Определить:
а) сумму всех элементов массива;
б) произведение всех элементов массива;
в) сумму квадратов всех элементов массива;
г) сумму шести первых элементов массива;
д) сумму элементов массива с k1-го по k2-й (значения k1 и k2 вводятся с клавиатуры; k2 > k1);
е) среднее арифметическое всех элементов массива;
ж) среднее арифметическое элементов массива с s1-го по s2-й (значения s1 и s2 вводятся с клавиатуры; s2 > s1). Все пункты реализовать в одной программе, все данные подписать.
ПОЖАЛУЙСТА! ОЧЕНЬ СРОЧНО! 35 БАЛЛОВ!
Ответы
===== 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.
![](https://st.uroker.com/files/ee5/ee5645e822026ed500c09235d36a640a.jpg)