Question

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

Answer 1

Ответ:

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

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