Паскаль.
Дано натуральное число N, вещественные числа X1,X2...Xn, где n - кол-во чисел. Найти среднее и наименьшее.
Ответы
Ответ дал:
0
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var x:=ArrRandomReal(ReadInteger('n->'),-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-> 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
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var x:=ArrRandomReal(ReadInteger('n->'),-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-> 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
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->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
Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->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
Похожие вопросы
2 года назад
2 года назад
2 года назад
9 лет назад