найти творение чисел, кратных 5 и не заканчивающихся на 0 в

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

Задать свой вопрос
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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт