Question

3. Найти среднее арифметическое элементов массива из 10 элементов и записать его на место максимального элемента.(Паскаль)

Answer 1

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.

Answer 2

begin

 var a := ArrRandomReal(10,-99,99);

 a.Println;

 a[a.IndexMax] := a.Average;

 a.Println;

end.

На PascalABC.NET