Составить программу на Паскале для обработки одномерного массива из 10 элементов. Значения элементов задать вводом с клавиатуры самостоятельно. Посчитать количество и напечатать номера элементов, которые больше 5.
Задание 2
Составить программу на Паскале, которая удалит все буквы «о» из текста, который состоит из 6 слов. Текст нужно придумать самостоятельно.
Ответы
Ответ дал:
1
// PascalABC.NET
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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад