смотри эта задача похожа на комбинаторную)
1ый вопрос:
на первом месте есть 3 варианта буквы, на втором тоже 3, на третьем 3
=> всего слов 3 * 3 * 3 = 27
2ой:
1 - ая буква - м, => это как минимум 10-ое слово (т.к. в предыдущих 3 * 3 словах первая - и)
при этом 10 слово - мии => 11 слово - МИМ; 12 cлово - МИР;
3ий:
1-ая буква -Р это как минимум 19 слово (предыдущие 2 * 3 * начинаются на и или м)
19 слово - РИИ => 21 - PИМ
Если в байтах: 112986270
если в мега байтах: 107.7521038
01000100 01110101 01100010 01101001 01101110 01110011 01101011 01100001 01101001 01100001
<span>//PascalABC.NET
//Версия 3.3, сборка 1627 (27.01.2018)
</span>
begin
var l:=ArrRandom(25,50,150); l.Println;
Writeln('Среднее полных-> ',l.Where(t->t>=100).Average:0:4);
Writeln('Среднее остальных-> ',l.Where(t->t<100).Average:0:4);
end.
Пример:
55 108 131 58 141 62 102 56 118 78 128 114 110 66 134 74 71 56 103 126 76 133 118 99 101
Среднее полных-> 119.0714
Среднее остальных-> 68.2727