Сколько элементов массива больше числа A. Написать программу на языке Pascal.

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

program CountElementsGreaterThanA;

const
N = 5;
A = 6;

var
arr: array[1..N] of Integer;
count, i: Integer;

begin
count := 0;

// Заполнение массива случайными числами
Randomize;
for i := 1 to N do
begin
arr[i] := Random(10) + 1;
Write(arr[i], ' ');
end;

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

Writeln;
Writeln('Количество элементов массива, больших числа A: ', count);

end.