Сформировать массив из n(namp;lt;=100) случайных целых чисел из [-50;50] и вычислить1)
Сформировать массив из n(nlt;=100) случайных целых чисел из [-50;50] и вычислить
1) среднее арифметическое отрицательных чисел;
2) Сумму чисел кратных 4;
3) творение чисел из (-10;10).
1 ответ
Екатерина Капсулецкая
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Среднее арифметическое отрицательных чисел: ',
a.Where(x-gt;xlt;0).Average);
Writeln('Сумма чисел, кратных четырем: ',
a.Where(x-gt;x mod 4=0).Sum);
Writeln('Произведение чисел на промежутке [-10;10]: ',
a.Where(x-gt;x.Between(-10,10)).Aggregate(BigInteger(1),(x,y)-gt;x*y))
end.
Пример
n= 90
2 -7 -9 23 49 3 -38 -3 -24 -50 -1 44 -33 -14 -39 42 -29 12 5 -27 35 -46 -23 36 26 18 -30 10 18 25 19 2 28 37 -21 4 40 42 10 23 5 -14 6 -10 35 11 -26 19 45 -36 38 44 29 17 -36 -2 -35 5 47 -19 -17 2 30 1 -18 48 -34 -19 -44 8 -49 -20 -48 32 18 -2 -1 38 -49 -35 -6 1 16 4 37 26 24 -40 23 32
Среднее арифметическое отрицательных чисел: -25.1052631578947
Сумма чисел, кратных четырем: 124
Творение чисел на интервале [-10;10]: -10450944000000
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Среднее арифметическое отрицательных чисел: ',
a.Where(x-gt;xlt;0).Average);
Writeln('Сумма чисел, кратных четырем: ',
a.Where(x-gt;x mod 4=0).Sum);
Writeln('Произведение чисел на промежутке [-10;10]: ',
a.Where(x-gt;x.Between(-10,10)).Aggregate(BigInteger(1),(x,y)-gt;x*y))
end.
Пример
n= 90
2 -7 -9 23 49 3 -38 -3 -24 -50 -1 44 -33 -14 -39 42 -29 12 5 -27 35 -46 -23 36 26 18 -30 10 18 25 19 2 28 37 -21 4 40 42 10 23 5 -14 6 -10 35 11 -26 19 45 -36 38 44 29 17 -36 -2 -35 5 47 -19 -17 2 30 1 -18 48 -34 -19 -44 8 -49 -20 -48 32 18 -2 -1 38 -49 -35 -6 1 16 4 37 26 24 -40 23 32
Среднее арифметическое отрицательных чисел: -25.1052631578947
Сумма чисел, кратных четырем: 124
Творение чисел на интервале [-10;10]: -10450944000000
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов