Паскаль. Определить, сколько элементов массива меньше, чем число 6.
Паскаль. Определить, сколько элементов массива меньше, чем число 6.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CountElementsLessThanSix;
var
arr: array[1..10] of Integer;
i, count: Integer;
begin
count := 0;
// Заполняем массив случайными числами от 1 до 10
if arr[i] < 6 thenfor i := 1 to 10 do
begin
arr[i] := Random(10) + 1;
Write(arr[i], ' ');
count := count + 1;
end;
Writeln;
Writeln('Number of elements less than 6: ', count);
end.