Question

1.Дан одномерный массив (заданный случайным
образом), состоящий из 15 элементов. Написать программу нахождения
суммы наибольшего и наименьшего элемента из данного массива.
2. Дан массив, состоящий из 100 чисел. Числа
выбираются случайным образом. Написать программу вывода
количества целых чисел, кратных 3
помогите плиз решить это задание

Answer 1

// PascalABC.NET

begin

 // 1

 var a := ArrRandom(15, -99, 99);

 a.Println;

 Println(a.Min + a.Max);

 Writeln; // эта строка только для разделения решений

 // 2

 var b := ArrRandom(100, -99, 99);

 b.Println.Count(p -> p mod 3 = 0).Print

end.