Только новое, а не списанное с других сайтов, и по программе составить 10 класса, пожалуйста!
Составить программу на Паскале для обработки одномерного массива из 10 элементов. Значения элементов задать вводом с клавиатуры самостоятельно. Посчитать количество и напечатать номера элементов, которые больше 5.
Составить программу на Паскале для обработки одномерного массива из 10 элементов. Значения элементов задать вводом с клавиатуры самостоятельно. Посчитать количество и напечатать номера элементов, которые больше 5.
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: