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