Предмет: Информатика,
автор: grafinya0909
Дан одномерный массив (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.
Интересные вопросы
Предмет: Литература,
автор: annabelova51
Предмет: Химия,
автор: koxand555
Предмет: Физика,
автор: tatyanabugay79
Предмет: Алгебра,
автор: madina200156
Предмет: Литература,
автор: Ivanova1305