Ответ:
- begin
- var a := ReadArrInteger(10);
- Println('Результат:', a.Count(x->x>a[0]));
- end.
Объяснение:
ReadArrInteger(n) - Ввод c клавиатуры массива длинны n.
Println(a,b) - Выводит на экран a и b, разделённые пробелом.
Count() - Возвращает количество элементов массива, удовлетворяющих условию. В нашем случае условием является x > a[0] , где x - каждый элемент массива.
Пример работы: