Информатика, Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина исходной цепочки символов; если она чётна, то удаляется правый символ цепочки, а если нечётна, то в начало цепочки добавляется буква Б. В полученной цепочке символов каждая буква заменяется буквой, следующей за ней в русском алфавите (А – на Б, Б – на В и т. д., а Я – на А). Получившаяся таким образом цепочка является результатом работы описанного алгоритма. Например, если исходной была цепочка АВС, то результатом работы алгоритма будет цепочка ВБГТ, а если исходной была цепочка КРОТ, то результатом работы алгоритма будет цепочка ЛСП. Дана цепочка имволов МЕРА. Какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т. е. применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(12,0,50); a.Println;
var m:=a.Average;
Write('Элементы, меньшие среднего значения: ');
Writeln('Таких элементов ',a.Where(x->x<m).Println.Count)
end.
Пример
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.
Пример
25 17 68 71 27 37 83 32 63 87 29 12 34
Элементы, меньшие 50: 25 17 27 37 32 29 12 34
Таких элементов 8