Question

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

Answer 1

//PascalABC.Net 3.1.0.1200
begin
    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.