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

ерен1 ерен1    2   18.05.2020 13:59    0

Ответы
ry564599 ry564599  14.10.2020 22:29

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика