Question

В массиве подсчитать количество элементов, которые не делятся на 7 без остатка. (Элементов массива:7).

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Const n=7;
Var
 ar:array[1..n] of integer;
 i,k:integer;
begin
 for i:=1 to n do
  begin
   readln(ar[i]);
   if ar[i] mod n<>0 then k:=k+1;
  end;
 writeln('Res:',k);
end.

Пример ввода:
1
2
3
4
5
6
7
Пример вывода:
Res: 6

Answer 2

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

function countElements(arr) {
  let count = 0;
  for (let i = 0; i < arr.length; i++) {
    if (arr[i] % 7 !== 0) {
      count++;
    }
  }
  return count;
}

const array = [7, 14, 21, 28, 35, 42, 49];
const result = countElements(array);
console.log(result); // Output: 0

В этом коде мы создаем функцию `countElements`, которая принимает массив в качестве аргумента. Затем мы инициализируем переменную `count` с нулевым значением, которая будет использоваться для подсчета элементов, не делящихся на 7 без остатка. Затем мы проходим по каждому элементу массива и проверяем, делится ли он на 7 без остатка. Если элемент не делится на 7 без остатка, мы увеличиваем значение `count` на 1. В конце функции мы возвращаем значение `count`, которое представляет количество элементов, не делящихся на 7 без остатка.

В приведенном примере массив состоит из элементов [7, 14, 21, 28, 35, 42, 49]. Ни один из этих элементов не делится на 7 без остатка, поэтому результатом выполнения функции `countElements` будет 0.

Примечание: Вам необходимо передать массив в функцию `countElements` для подсчета количества элементов, не делящихся на 7 без остатка.