Задан массив А состоящий из 10 чисел Найти количество элементов большего первого элемента значения вводятся с клавиатуры

ответ: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 - каждый элемент массива.

Пример работы: