<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(12,0,50); a.Println;
var m:=a.Average;
Write('Элементы, меньшие среднего значения: ');
Writeln('Таких элементов ',a.Where(x->x<m).Println.Count)
end.
<u>Пример</u>
34 12 5 35 29 15 23 22 41 27 12 36
Элементы, меньшие среднего значения: 12 5 15 23 22 12
Таких элементов 6
begin
var a:=ArrRandom(13,0,100); a.Println;
Write('Элементы, меньшие 50: ');
Writeln('Таких элементов ',a.Where(x->x<50).Println.Count)
end.
<u>Пример</u>
25 17 68 71 27 37 83 32 63 87 29 12 34
Элементы, меньшие 50: 25 17 27 37 32 29 12 34
Таких элементов 8
Скорей всего приоритет загрузки в биосе был изменён и комп не может загрузить то, на чём стоит приоритет, измени приоритет на загрузку системы, если не помогает, то обнуление
Если так подумать, то папка - это ярлык, который вмещает в себе различные файлы или ярлыки. А каталог - это список определенных отсортированных файлов или ярлыков, в магазине - отсортированный список продукции.