Question

В одномерном массиве найти количество элементов, кратных 5. Количество элементов массива задайте самостоятельно. Создайте массив любым способом. Язык Паскаль, помогите

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Count(p -> p mod 5 = 0).Println

end.

Answer 2

Конечно, вот пример кода на языке Pascal, который находит количество элементов в одномерном массиве, кратных 5:

pascalCopy code
program CountMultiplesOf5;

const
  N = 10;  // Количество элементов в массиве (задайте значение по вашему желанию)

var
  arr: array[1..N] of Integer;
  i, count: Integer;

begin
  // Заполняем массив любыми значениями (вам нужно указать свои значения)
  for i := 1 to N do
  begin
    // Здесь можно считать значения с клавиатуры или задать их напрямую
    // Например:
    write('Введите элемент arr[', i, ']: ');
    readln(arr[i]);
  end;

  count := 0;  // Начальное количество элементов, кратных 5

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

  writeln('Количество элементов, кратных 5: ', count);
end.

Этот код создает массив arr из N элементов и затем перебирает его, чтобы подсчитать количество элементов, кратных 5. Вы можете изменить значение N и вводить свои собственные значения для элементов массива.