Question

1.Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-15, 10] . Найти сумму отрицательных элементов массива.


2. Сформировать и вывести на экран массив, который задан генератором случайных чисел из интервала[-42;20], Распечатать элементы кратные 3

Answer 1

Задание 1:

• begin
• var a := ArrRandom(ReadInteger('Количество:'),-15,10);
• Println('Массив:',a);
• Println('Сумма:',a.Where(x->x<0).Sum);
• end.

Задание 2:

• begin
• var a := ArrRandom(ReadInteger('Количество:'),-42,20);
• Println('Массив:',a);
• Print('Элементы:');
• a.Where(x->x mod 3 = 0).Print;
• end.

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