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