Составить программу на Паскале. Задан одномерный массив В(10), заполненный произвольным образом. Подсчитать кол-во элементов массива, больших заданного числа k. На экран вывести заданный массив и результат расчета.

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

program CountElementsGreaterThanK;

var
B: array [1..10] of Integer;
k, count, i: Integer;

begin
randomize;

// заполнение массива B произвольными числами
for i := 1 to 10 do
begin
B[i] := random(100); // заполняем случайными числами от 0 до 99
end;

// задаем число k
k := random(100); // задаем случайное число

// выводим массив B и число k
writeln('Массив B:');
for i := 1 to 10 do
begin
write(B[i], ' ');
end;
writeln;

writeln('Заданное число k: ', k);

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

// выводим результат
writeln('Количество элементов массива B, больших числа ', k, ': ', count);

end.