Дан линейный массив.Найти количество элементов больших числа х. Заполнить массив через случайные числа.
Паскаль.

Предыдущий
вопрос Следующий
вопрос

program CountElementsGreaterThanX;
const
N = 10;
var
arr: array[1..N] of Integer;
x, i, count: Integer;
begin
randomize;

// Ввод числа x
writeln('Enter the number x:');
readln(x);

// Заполнение массива случайными числами
for i := 1 to N do
begin
arr[i] := random(100); // случайное число от 0 до 99
end;

// Вывод массива на экран
writeln('Array:');
for i := 1 to N do
begin
write(arr[i], ' ');
end;
writeln;

// Подсчет количества элементов больших числа x
count := 0;
for i := 1 to N do
begin
if arr[i] > x then
count := count + 1;
end;

// Вывод количества элементов больших числа x
writeln('Number of elements greater than ', x, ': ', count);
end.