Ребят В массиве c1, c2,..., c40 найти произведение - вопрос №135665261240 от YerasylAmangeldi 23.11.2021 05:27

Question

Информатика: Ребят В массиве c1, c2,..., c40 найти произведение чисел, не попавших в интервал [с, d].

YerasylAmangeldi · Answer

PascalABC.NETbeginvar c := ArrRandom(40, 1, 20); var (с, d) := ReadInteger2('Введите "с" и "d":'); c.Println; Print('Произведение:', c.Product(x -> x in с..d ? 1:x)) end.

Прирмер работы:

Ребят В массиве c1, c2,..., c40 найти произведение чисел, не попавших в интервал [с, d].