Заполнить массив 10 случайными числами от 1 до 10. Проверить сколько чисел будет больше числа А (задается с клавиатуры.)

var

i, k, j : integer;

a : array [1 ... 10] of integer;

Begin

randomize;

for i: = 1 to 10 do A[i]:=random (11) ;

for i: = 1 to 10 do write (A[i], ' ') ; {Вывод массива на экран (можно убрать, т. к в задаче это не требуется) }

write ('Введите число А: ') ;

read (k) ;

for i: = 1 to 10 do

if A[i] > k then inc (j) ; {увеличивает j на 1}

writeln (j,' чисел большьше числа ', k) ;

End.