Одномерный массив заполнить случайными числами. найти среднее арифметическое элементов массива.элемент меньшие среднего арифметического увеличить в 10 раз (оформить в виде процедуры или функции). измененный массив вывести в файл
// 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]<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.
Разгадайте кроссворд:1.) Другое название прикладной программы. ( 10 букв ) 2.)Изображение на экране монитора готового к работе компьютера ( два слова) ( 7 букв в первом слове и 4 буквы во втором слове ) 3.) Единица информации , равная восьми битам. ( 4 буквы) 4.) Группа файлов, имеющая имя; контейнер для файлов. ( 6 букв) 5.) Прямоугольная область, занимаемая на рабочем столе работающей программой. ( 4 буквы) 6.) Файл содержащий данные ( рисунки, тексты). ( 8 букв) 7.) обязательная часть програмного обеспечения - ... система. ( 12 букв) 8.) самая маленькая единица измерения информации. ( 3 буквы) 9.) информация хранящаяся в долговременной памяти как единое целое и обозначенная именем. ( 4 буквы)1. Приложение 2. Добро 3. Байт 4. Каталог, папка. директория, фолдер 5. Окно 6. Документ 7. Операционная система 8. бит 9. Файл
Разгадайте кроссворд:1.) Другое название прикладной программы. ( 10 букв ) 2.)Изображение на экране монитора готового к работе компьютера ( два слова) ( 7 букв в первом слове и 4 буквы во втором слове ) 3.) Единица информации , равная восьми битам. ( 4 буквы) 4.) Группа файлов, имеющая имя; контейнер для файлов. ( 6 букв) 5.) Прямоугольная область, занимаемая на рабочем столе работающей программой. ( 4 буквы) 6.) Файл содержащий данные ( рисунки, тексты). ( 8 букв) 7.) обязательная часть програмного обеспечения - ... система. ( 12 букв) 8.) самая маленькая единица измерения информации. ( 3 буквы) 9.) информация хранящаяся в долговременной памяти как единое целое и обозначенная именем. ( 4 буквы)1. Приложение 2. Добро 3. Байт 4. Каталог, папка. директория, фолдер 5. Окно 6. Документ 7. Операционная система 8. бит 9. Файл
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]<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 дан во вложении.