Паскаль. Дано натуральное число N, вещественные числа X1,X2...Xn, где n -

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программка не работает, обновите версию!

begin
  var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t-gt;0.1*t).ToArray;
  a.Println;
  Writeln('Среднее ',a.Average:0:4,', минимум ',a.Min)
end.

Пример
n= 15
2.8 -7.8 1.7 0.2 8.7 1.9 -6.3 -6.4 -0.2 5.4 -7.3 5.7 -8 -3.3 9.2
Среднее -0.2467, минимум -8

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var x:=ArrRandomReal(ReadInteger('n-gt;'),-100,100);
  for var i:=0 to x.Length-1 do Write(x[i]:0:3,' '); Writeln;
  Writeln('Среднее:',x.Average:0:3); Writeln('Малое:',x.Min:0:3); 
end.

Пример:
n-gt; 10
2.753 -98.086 -26.848 55.284 -31.729 -72.603 -38.772 -12.801 53.627 -7.935 
Среднее:-17.711
Малое:-98.086