Создать массив А, состоящий из 10 элементов, проинициализируйте его числами 10, 20, 30, ..., 100. Вывести массив на экран. Найти среднее арифметическое значений массива, вывести на экран. Увеличить первый, пятый и десятый элеме...
Создать массив А, состоящий из 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
Не нашли ответ?
Похожие вопросы