Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1449 от 23.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(25,1,99); a.Println;
Writeln('max-min=',a.Max-a.Min);
Writeln('Сумма нечетных=',a.Where(x->x.IsOdd).Sum);
var v:=a.Average;
Writeln('Среднее арифметическое=',v);
Write('Наиболее близок к ср.арифметическому a[');
var t:=a.Select((x,i)->(x,i,abs(x-v))).MinBy(x->x[2]);
Writeln(t[1]+1,']=',t[0])
end.
Пример
7 46 19 86 11 64 73 60 16 48 10 38 53 41 92 23 41 87 89 48 79 47 87 2 26
max-min=90
Сумма нечетных=657
Среднее арифметическое=47.72
Наиболее близок к ср.арифметическому a[10]=48
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(25,1,99); a.Println;
Writeln('max-min=',a.Max-a.Min);
Writeln('Сумма нечетных=',a.Where(x->x.IsOdd).Sum);
var v:=a.Average;
Writeln('Среднее арифметическое=',v);
Write('Наиболее близок к ср.арифметическому a[');
var t:=a.Select((x,i)->(x,i,abs(x-v))).MinBy(x->x[2]);
Writeln(t[1]+1,']=',t[0])
end.
Пример
7 46 19 86 11 64 73 60 16 48 10 38 53 41 92 23 41 87 89 48 79 47 87 2 26
max-min=90
Сумма нечетных=657
Среднее арифметическое=47.72
Наиболее близок к ср.арифметическому a[10]=48
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад