4. Составьте программу подсчитывающую количество элементов массива меньших 50. Массив составить из случайных чисел от 10 до 110
5. Составьте программу вывода на экран элементов одномерного целочисленного массива В(10), кратных 3. Массив составить из случайныцх чисел от 10 до 60.
6. Составьте программу вычисления произведения отрицателтьных элементов одномерного массива А(8) составленного из случайных чисел в интервале от -30 до 30
Ответы
Ответ дал:
0
===== PascalABC.NET =====
begin
// 1
var n := ReadInteger('Введи длину массива:');
var a := ArrRandom(n, 10, 100);
a.Println.Count(p -> p < 50).Println;
// 2
var b := ArrRandom(10, 10, 60);
b.Println.Where(p -> p mod 3 = 0).Println;
// 3
var c := ArrRandom(8, -30, 30);
c.Println.Where(p -> p < 0).Product.Println;
end.
Приложения:
![](https://st.uroker.com/files/9af/9afe4e5a8ea9b1a257e203e8b25962b3.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
7 лет назад