Question

Помогите сделать задачи по информатике в Pascal ABC, срочно, пожалуйста!!!
1. Найти произведение элементов кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер произвольный
2. Массив A вводится с клавиатуры. Найдите среднее арифметическое его элементов с нечётными номерами в массиве, заданном датчиком случайных чисел на интервале [-25, 50]. Размер произвольный

Answer 1

Задание 1 (PascalАВС.NЕТ 3.9)

##

var n := ReadInteger;                   // вводим размер массива

if n < 0 then exit;                     // защита от дурака

var a := ArrRandom(n, -28, 27);         // создаем и заполняем массив

a.Println;                              // выводим элементы массива на экран

// собственно, решение и вывод результата

a.Where(m -> m.Divs(3)).DefaultIfEmpty.Product(m -> int64(m)).Print

// Переход к типу int64 снижает вероятность переполнения

// DefaultIfEmpty - страховка для случая, если не будет чисел, кратных 3.

Задание 2

##

var n := ReadInteger;                   // вводим размер массива

if n < 0 then exit;                     // защита от дурака

var a := ArrRandom(n, -25, 50);         // создаем и заполняем массив

a.Println;                              // выводим элементы массива на экран

// собственно, решение и вывод результата

a[::2].DefaultIfEmpty.Average.Print

// Переход к типу int64 снижает вероятность переполнения

// DefaultIfEmpty - страховка для случая, если ввести n = 0