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

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

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

Ответ

Автор - BobbyFresnel

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

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.