Создать массив А, состоящий из 10 элементов, проинициализируйте его числами 10, 20, 30, ..., 100. Вывести массив на экран. Найти среднее арифметическое значений массива, вывести на экран. Увеличить первый, пятый и десятый элементы массива на 5.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var a:=Range(10,100,10).ToArray; a.Println;
Writeln(Ср.арифм.=,a.Average);
a[0]+=5; a[4]+=5; a[9]+=5;
a.Println
end.
Тестовое решение:
10 20 30 40 50 60 70 80 90 100
Ср.арифм.=55
15 20 30 40 55 60 70 80 90 105
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
