3. Найти среднее арифметическое элементов массива из 10 элементов и записать его на место максимального элемента.(Паскаль)
Ответы на вопрос
Ответил Koljisto
0
Begin
var n := 10;
var s:=0;
var arr := ArrRandomReal(n,0,100);
arr.Println;
Writeln(arr.Sum/n);
arr[arr.IndexMax]:=arr.Sum/n;
arr.Println;
End.
Ответил BobbyFresnel
0
begin
var a := ArrRandomReal(10,-99,99);
a.Println;
a[a.IndexMax] := a.Average;
a.Println;
end.
На PascalABC.NET
Новые вопросы
Информатика,
1 год назад
Английский язык,
1 год назад
Математика,
2 года назад
Русский язык,
2 года назад
Обществознание,
7 лет назад