Question

СРОЧНО!

Дан двумерный массив размером 3 на 4. Найти количество чисел, кратных 5 и заканчивающихся на 0. Вывести элементы массива на экран.

Answer 1

===== PascalABC.NET =====

begin

 var a := MatrRandom(3, 4, -99, 99);

 a.Println(4);

 Print('Элементов, кратных 5 и заканчивающихся нулем:',

     a.ElementsByRow.Count(p -> p mod 10 = 0))

end.

Объяснение:

Если число заканчивается нулем, то оно кратно 10. Но 10 = 5·2, поэтому такое число также кратно 5 и 2. Вследствие этого, отдельная проверка на кратность 5 не нужна.