Паскаль. Определить, сколько элементов массива меньше, чем число 6.

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

program CountElementsLessThanSix;

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

begin
count := 0;

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

end;

Writeln;
Writeln('Number of elements less than 6: ', count);

end.