Дан одномерный массив (50 элементов) случайных чисел в диапазоне от 10 до 50. Найти и вывести номер и значение максимального элемента, номер и значение минимального элемента, среднее арифметическое всех чисел стоящих на четным ...
Дан одномерный массив (50 элементов) случайных чисел в диапазоне от 10 до 50.
Найти и вывести номер и значение максимального элемента, номер и значение минимального элемента, среднее арифметическое всех чисел стоящих на четным местах.
Гость
Ответ(ы) на вопрос:
Гость//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.
Не нашли ответ?
Похожие вопросы