Question

4. Составьте программу подсчитывающую количество элементов массива меньших 50. Массив составить из случайных чисел от 10 до 110

5. Составьте программу вывода на экран элементов одномерного целочисленного массива В(10), кратных 3. Массив составить из случайныцх чисел от 10 до 60.

6. Составьте программу вычисления произведения отрицателтьных элементов одномерного массива А(8) составленного из случайных чисел в интервале от -30 до 30

Answer 1

===== 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.