Writeln('Количество элементов меньше 5: ', Count);
end.
Программа создает массив B из 10 элементов и заполняет его случайными числами от 0 до 9. Затем программа перебирает все элементы массива и увеличивает счетчик Count на 1, если элемент меньше 5. В конце программа выводит количество элементов меньше 5.
Объяснение:
1 votes Thanks 1
votef
А как сделать так, чтобы массив был заполнен не случайными элементами, а введёнными с клавиатуры?
pgaraon
Если не сложно напиши мне в телеграм Rengenersky или создай новый вопрос на 5 балов там отвечу , тут не вмещается
votef
Создала вопрос : https://znanija.com/task/52484192
Answers & Comments
Ответ:
Вот решение на языке Паскаль:
less
Copy code
program CountLessThanFive;
var
B: array[1..10] of Integer;
Count, i: Integer;
begin
// Заполняем массив случайными числами от 0 до 9
for i := 1 to 10 do
B[i] := Random(10);
Count := 0;
// Подсчитываем количество элементов меньше 5
for i := 1 to 10 do
if B[i] < 5 then
Count := Count + 1;
// Выводим результат
Writeln('Количество элементов меньше 5: ', Count);
end.
Программа создает массив B из 10 элементов и заполняет его случайными числами от 0 до 9. Затем программа перебирает все элементы массива и увеличивает счетчик Count на 1, если элемент меньше 5. В конце программа выводит количество элементов меньше 5.
Объяснение: