Дана последовательность из N произвольных целых чисел. Написать программу, которая определяет, сколько в этой последовательности отрицательных чисел, кратных 7 (Использовать все три вида цикла For, While, Repeat)

Предыдущий
вопрос Следующий
вопрос

Пример решение на языке R:

# Генерируем случайную последовательность из 20 чисел
set.seed(123)
sequence <- sample(-100:100, 20, replace = TRUE)
print(sequence)
# Используем цикл for
count_for <- 0
for (num in sequence) {
if (num < 0 & num %% 7 == 0) {
count_for <- count_for + 1
}
}
print(count_for)
# Используем цикл while
count_while <- 0
i <- 1
while (i <= length(sequence)) {
if (sequence[i] < 0 & sequence[i] %% 7 == 0) {
count_while <- count_while + 1
}
i <- i + 1
}
print(count_while)
# Используем цикл repeat
count_repeat <- 0
j <- 1
repeat {
if (sequence[j] < 0 & sequence[j] %% 7 == 0) {
count_repeat <- count_repeat + 1
}
j <- j + 1
if (j > length(sequence)) {
break
}
}
print(count_repeat)

Это пример программы на языке R, которая генерирует случайную последовательность из 20 целых чисел и использует циклы for, while и repeat для подсчета количества отрицательных чисел, кратных 7.