Пример кода на Паскале:

program CountValuesGreaterThanA;
const
N = 30;
var
arr: array[1..N] of Integer;
A: Integer;
count: Integer;
i: Integer;
begin
count := 0;
// Вводим значение числа A
writeln('Введите число A:');
readln(A);
// Заполняем массив случайными значениями
for i := 1 to N do
begin
arr[i] := Random(100); // случайное число от 0 до 99
end;
// Выводим массив на экран
writeln('Массив:');
for i := 1 to N do
begin
write(arr[i], ' ');
end;
writeln;
// Подсчитываем количество значений больше числа A
for i := 1 to N do
begin
if arr[i] > A then
begin
count := count + 1;
end;
end;
writeln('Количество значений в массиве, больших числа A: ', count);
end.

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