Заполнить массив 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.