Question

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

Answer 1

PascalABC.NET

Ответ:

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

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