begin
// 1
var a := ReadArrInteger('Введите 10 целых чисел:', 10);
var b := a.Indices((v, i) -> v > 5);
Println('Количество:', b.Count);
Print('Номера:');
b.Select(p -> p + 1).Println;
// 2
Readln;
ReadString('Введите текст:').Replace('о', '').Print
end.
Объяснение:
