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

Answer 2

Для решения этой задачи, нужно выполнить следующие шаги:

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

Давайте выполним каждый шаг по порядку:

Шаг 1: Создание массива из 10 элементов, принимающих значения от 20 до 30. Массив будет выглядеть, например, так: [20, 23, 25, 27, 21, 24, 22, 28, 26, 30].

Шаг 2: Отбор чисел, кратных 5 и не оканчивающихся на 0. Из нашего массива отобраны числа: [20, 25]

Шаг 3: Найти произведение отобранных чисел. Произведение чисел 20 и 25 равно 500.

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