Question

Дан одномерный массив В(10). Подсчитать количество элементов массива, меньших числа 5. Составить на языке Паскаль.

Answer 1

Ответ:

Вот решение на языке Паскаль:

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.

Объяснение: