Найти количество элементов одномерного массива, делящихся на 3 на паскале

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

program CountDivisibleByThree;
var
  arr: array[1..100] of Integer; // Массив на 100 элементов
  i, count: Integer;

begin
  // Заполнение массива произвольными значениями
  for i := 1 to 100 do
  begin
    arr[i] := Random(100); // Генерация случайных чисел от 0 до 99
  end;

  count := 0; // Инициализация счетчика

  // Подсчет элементов, которые делятся на 3
  for i := 1 to 100 do
  begin
    if arr[i] mod 3 = 0 then
      count := count + 1; // Увеличиваем счетчик, если элемент делится на 3
  end;

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

В этом коде мы:

1. Определили массив arr размером 100 элементов.
2. Заполнили массив случайными числами от 0 до 99.
3. Использовали цикл для проверки каждого элемента, делится ли он на 3.
4. Если элемент делится на 3, увеличиваем счетчик count.
5. После завершения подсчета выводим количество элементов, делящихся на 3.

Вы можете изменить размер массива и диапазон значений в соответствии с вашими потребностями. Удачи с вашими учебными проектами на Паскале!