Определить:
а) сумму всех элементов массива;
б) произведение всех элементов массива;
в) сумму квадратов всех элементов массива;
г) сумму шести первых элементов массива;
д) сумму элементов массива с 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.
Популярно: Информатика
-
burakova198520003.04.2020 16:52
-
Zoolog85104.11.2022 00:00
-
sokolovamoroz02.05.2022 04:05
-
lilianchic1410.06.2021 07:24
-
Milena25126706.11.2020 23:59
-
anisimovaanech27.04.2022 08:28
-
MDA142rus10.10.2020 22:32
-
olik2917.09.2020 02:39
-
lizasolnce200421.12.2022 13:40
-
B1o2o3m404.06.2023 05:49