ответ:beginvar 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 - каждый элемент массива.
ReadArrInteger(n) - Ввод c клавиатуры массива длинны n.
Println(a,b) - Выводит на экран a и b, разделённые пробелом.
Count() - Возвращает количество элементов массива, удовлетворяющих условию. В нашем случае условием является x > a[0] , где x - каждый элемент массива.
Пример работы: