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

Question

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

Answer 1

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.