Помогите пожалуйста решить в паскале пожалуйста
Помогите пожалуйста решить в паскале пожалуйста
Задать свой вопрос
Тимур
это как среднее арефметическое
Larisa
да
Лилия Скалкин-Воронцова
помоги( я знаю только 1
Vladislav Dulesin
а 2 и 3 не знаю
1 ответ
Егор Толоненко
// 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-gt;x.IsOdd).Sum);
var v:=a.Average;
Writeln('Среднее арифметическое=',v);
Write('Наиболее недалёк к ср.арифметическому a[');
var t:=a.Select((x,i)-gt;(x,i,abs(x-v))).MinBy(x-gt;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-gt;x.IsOdd).Sum);
var v:=a.Average;
Writeln('Среднее арифметическое=',v);
Write('Наиболее недалёк к ср.арифметическому a[');
var t:=a.Select((x,i)-gt;(x,i,abs(x-v))).MinBy(x-gt;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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов