Напишите программу, которая генерирует массив из случайных чисел от 20 до 85 в количестве не более 30 чисел. После этого необходимо посчитать количество чисел, больших введенного вами с клавиатуры.

Hellp решает игоговую оценку

Program n1;

const n=15;

var a: array[1 ... n] of integer;

i, b, k: integer;

begin

randomize;

write ('массив: ') ;

for i:=1 to n do begin

a[i]:=random (66) + 20;

write (a[i],' ') ;

end;

writeln;

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

readln (b) ;

k:=0;

for i:=1 to n do if a[i]>b then k:=k+1;

write ('k=', k) ;

end.