Найдите количество элементов массива, которые больше заданного числа а,…

program picaso; uses crt; type vector=array[1… 100] of integer; var a: vector; i,n,k,p: byte; begin clrscr; Randomize; writeln ('n: '); readln (n); writeln ('a: '); readln (p); for i: =1 to n do begin write ('элемент ',i,': '); readln (a[i]); end; for i: =1 to n do write (a[i],'); k: =0; for i: =1 to n do begin if a[i] > p then inc (k); end; writeln ('количество элементов массива, которые больше заданного числа',p,': ',k); end.