Дан одномерный массив (50 элементов) случайных чисел в диапазоне от 10 до 50.
Найти и вывести номер и значение максимального элемента, номер и значение минимального элемента, среднее арифметическое всех чисел стоящих на четным местах.

//PascalABC.Net 3.1.0.1200begin    var a := ArrRandomInteger(50, 10, 50);    Println(a);    writeln(a.Max,' ',a.IndexMax);    writeln(a.Min,' ',a.IndexMin);    writeln(a.Slice(0,2).Average);end.