одномерный массив заполнить случайными числами. отыскать среднее арифметическое частей
Одномерный массив заполнить случайными числами. отыскать среднее арифметическое элементов массива.элемент наименьшие среднего арифметического прирастить в 10 раз (оформить в виде процедуры или функции). Измененный массив вывести в файл
Задать свой вопрос1 ответ
Арсений Немирович-Данченко
// PascalABC.NET 3.0, сборка 1128
procedure AllMake(p:array of integer; var avg:real);
begin
avg:=p.Average;
for var i:=0 to p.Length-1 do
if p[i]lt;avg then p[i]*=10
end;
begin
var n:=ReadInteger('Количество частей в массиве:');
var a:=ArrRandom(n,1,50);
Writeln('Начальный массив'); a.Println;
var av:real;
AllMake(a,av);
Writeln('Среднее арифметическое одинаково ',av);
Writeln('Результирующий массив'); a.Println;
WriteAllText('out.txt',a.JoinIntoString)
end.
Тестовое решение:
Количество частей в массиве: 15
Начальный массив
34 50 49 50 17 21 13 25 11 43 47 45 30 11 1
Среднее арифметическое равно 29.8
Результирующий массив
34 50 49 50 170 210 130 250 110 43 47 45 30 110 10
Файл out.txt дан во вложении.
procedure AllMake(p:array of integer; var avg:real);
begin
avg:=p.Average;
for var i:=0 to p.Length-1 do
if p[i]lt;avg then p[i]*=10
end;
begin
var n:=ReadInteger('Количество частей в массиве:');
var a:=ArrRandom(n,1,50);
Writeln('Начальный массив'); a.Println;
var av:real;
AllMake(a,av);
Writeln('Среднее арифметическое одинаково ',av);
Writeln('Результирующий массив'); a.Println;
WriteAllText('out.txt',a.JoinIntoString)
end.
Тестовое решение:
Количество частей в массиве: 15
Начальный массив
34 50 49 50 17 21 13 25 11 43 47 45 30 11 1
Среднее арифметическое равно 29.8
Результирующий массив
34 50 49 50 170 210 130 250 110 43 47 45 30 110 10
Файл out.txt дан во вложении.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов