Question

1. Напишите программу к задаче:
Дан массив В (60), заполненный двузначными случайными числами. Найти максимальный элемент массива и вывести его на экран.


2. Напишите программу к задаче:
Дан массив А (120), заполненный трехзначными случайными числами. Найти произведение тех элементов, которые принадлежат отрезку (30,60) и сумму тех элементов, которые кратны 6.

Answer 1

Задание 1:

• ##
• var B := ArrRandom(60, 10, 99);
• B.Println;
• Print('Максимальный элемент:', B.Max)

Задание 2:

• ##
• var A := ArrRandom(120, 100, 999);
• A.Println;
• Println('Произведение:', A[30:59].Product);
• Print('Сумма:', A.Where(x → x.Divs(6)).Sum)