Прошу Помогите пожалуйстаСформировать массив (4,5), состоящий из целых случайных чисел из интервала от -50 до 70. Вычислить в данном массиве кол-во элементов- кратных 3, 5 , 7 (паскаль)
Прошу Помогите пожалуйста
Сформировать массив (4,5), состоящий из целых случайных чисел из интервала от -50 до 70. Вычислить в данном массиве кол-во элементов- кратных 3, 5 , 7 (паскаль)
Гость
Ответ(ы) на вопрос:
ГостьPascalABC.NET 3.2
begin
var B := MatrRandom(4, 5, -50, 70);
println('Исходный массив:');
B.Println;
println('Кратных 3:', B.Rows.SelectMany(x->x).Where(x->x mod 3 = 0).Count);
println('Кратных 5:', B.Rows.SelectMany(x->x).Where(x->x mod 5 = 0).Count);
println('Кратных 7:', B.Rows.SelectMany(x->x).Where(x->x mod 7 = 0).Count);
end.
Пример вывода:
Исходный массив:
13 31 34 -30 24
34 55 9 16 66
-38 -50 44 53 18
-20 -4 -49 -42 -3
Кратных 3: 7
Кратных 5: 4
Кратных 7: 2
Не нашли ответ?
Похожие вопросы