Найти произведение чисел, кратных 5 и не оканчивающихся ** 0 в массиве из 10 элементов,...

Question

Найти произведение чисел, кратных 5 и не оканчивающихся на 0 в массиве из 10 элементов, принимающих значение от 20 до 30.

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(10, 20, 30);

 a.Println;

 var p := 1;

 foreach var t in a do

   if t = 25 then p *= 25;

 if p = 1 then p := 0;

 p.Println;

end.

24 27 25 24 27 21 27 25 26 25

15625