Question

дан массив из 30 целых положительных чисел. Подсчитать количество элементов массива кратных 6 и не заканчивающихся на 4. Если таких элементов в массиве нет, то сообщить «Нет», ДАЮ 20 баллов

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(30,-99,99); a.Println;
  var k:=a.Where(t->(t mod 6=0) and (t mod 10<>4)).Count;
  if k=0 then Writeln('Нет') else Writeln('Найдено элементов: ',k)
end.

Пример
-32 -46 -99 97 63 40 -3 -89 31 -43 69 32 -66 -66 -59 98 -88 -41 -30 19 69 -83 -88 0 12 -87 -53 82 59 53
Найдено элементов: 5

Answer 2

Для подсчета количества элементов массива, которые кратны 6 и не заканчиваются на 4, нужно пройтись по каждому элементу массива и проверить выполнение этих условий. Вот пример кода на Python, который сделает это:

pythonCopy code
def count_elements(arr):
    count = 0
    for num in arr:
        if num % 6 == 0 and num % 10 != 4:
            count += 1
    return count

# Предположим, что у нас есть массив arr из 30 целых чисел
arr = [1, 24, 36, 47, 58, 60, 72, 83, 94, 106, 112, 123, 134, 146, 150, 161, 172, 183, 190, 201, 212, 223, 234, 240, 251, 262, 273, 280, 291, 302]

result = count_elements(arr)
if result == 0:
    print("Нет")
else:
    print(f"Количество элементов, кратных 6 и не заканчивающихся на 4: {result}")

# Выведет: Количество элементов, кратных 6 и не заканчивающихся на 4: 5

Этот код проверит каждый элемент массива и, если элемент удовлетворяет условиям (кратен 6 и не оканчивается на 4), увеличит счетчик count. После прохождения по всем элементам массива, функция вернет значение этого счетчика. Если значение равно нулю, программа выведет "Нет", иначе выведет количество элементов, удовлетворяющих условиям.