1 задача
Дан массив из 20 целых чисел, заданных в диапазоне [46, 89].
Подсчитать в нем количество элементов кратных 3; найти сумму положительных чисел и найти максимальный среди отрицательных элементов массива.
написать программу на паскале, пожалуйста
Приложения:
![](https://st.uroker.com/files/4ca/4cae05517ef1364903b9666420dd1c1e.png)
Ответы
Ответ дал:
0
##
var a := ArrRandom(20, -46, 89);
a.Println;
Println('Элементов, кратных трем:', a.Count(n -> n mod 3 = 0));
Println('Сумма положительных элементов:', a.Where(n -> n > 0).Sum);
Println('Максимальный среди отрицательных элемент:', a.Where(n -> n < 0).Max)
Приложения:
![](https://st.uroker.com/files/30f/30f86e8c9474a7c5bed5b762b0270775.jpg)
Вас заинтересует
1 месяц назад
1 месяц назад
1 месяц назад
1 месяц назад