Question

Составить программу на Паскале для обработки одномерного массива из 10 элементов. Значения элементов задать вводом с клавиатуры самостоятельно. Посчитать количество и напечатать номера элементов, которые больше 5.



Задание 2

Составить программу на Паскале, которая удалит все буквы «о» из текста, который состоит из 6 слов. Текст нужно придумать самостоятельно.

Answer 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.