Question

Задача: В заданном одномерном массиве, состоящем из 10 целых чисел, подсчитать количество элементов равных нулю. Заполнение массива - любым способом. Выполнить в Паскале или в тетради.​

Answer 1

Ответ:

var i, count : integer;

   arr: array[1..10] of integer;

begin

 write('Массив: ');

 for i := 1 to 10 do

 begin

   arr[i] := random(0, 5);

   write(arr[i], ' ');

   if arr[i] = 0 then inc(count);

 end;

 writeln();

 write('Количество элементов равных нулю: ', count);

end.

Answer 2

Для решения данной задачи в Паскале можно использовать следующий алгоритм:

1. Объявляем и инициализируем массив из 10 целых чисел любым способом.

var
  arr: array[1..10] of integer;
  i, count: integer;
begin
  // Заполняем массив любым способом
  for i := 1 to 10 do
    arr[i] := Random(10) - 5; // Заполняем случайными числами от -5 до 4

// Инициализируем счетчик нулевых элементов
  count := 0;

// Подсчитываем количество элементов равных нулю
  for i := 1 to 10 do
  begin
    if arr[i] = 0 then
      count := count + 1;
  end;

// Выводим результат
  WriteLn('Количество элементов, равных нулю: ', count);
end.

В данном примере мы заполняем массив случайными числами от -5 до 4 и затем с помощью цикла проходим по всем элементам массива и проверяем, равен ли текущий элемент нулю. Если да, то увеличиваем счетчик count на 1. После завершения цикла выводим результат на экран.

Таким образом, данный код позволяет найти количество элементов равных нулю в заданном массиве.