Одномерный массив заполнить случайными числами. найти среднее арифметическое элементов...

Question

Одномерный массив заполнить случайными числами. найти среднее арифметическое элементов массива.элемент меньшие среднего арифметического увеличить в 10 раз (оформить в виде процедуры или функции). Измененный массив вывести в файл

Answer 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]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 дан во вложении.

---

Скачать вложение Текст (TXT)