
составьте программу которая заполняет массив случайными двузначными числами и находит сколько из
этих чисел кратны 2 и 7

Ответы на вопрос

program fantscrin;
const n = 15;
var a: array [1..n] of integer;
i,k:integer;
Begin
for i:=1 to n do
a[i]:= random(100)+10;
for i:=1 to n do
write(a[i], ' ');
k:=k+1;
writeln('');
for i:=1 to n do
if ((a[i] mod 2 = 0)and(a[i] mod 7 = 0)) then k:=k+1;
writeln(k);
End.



Для создания программы, которая заполняет массив случайными двузначными числами и находит количество чисел, кратных 2 и 7, вы можете использовать язык программирования Python. Вам понадобится библиотека random
для генерации случайных чисел. Если у вас уже установлен Python, приступим к созданию программы:
pythonimport random
def generate_random_numbers(size):
numbers = []
for _ in range(size):
numbers.append(random.randint(10, 99)) # Генерируем случайные числа от 10 до 99 (двузначные)
return numbers
def count_multiples(numbers, multiple1, multiple2):
count = 0
for num in numbers:
if num % multiple1 == 0 and num % multiple2 == 0:
count += 1
return count
def main():
array_size = 100 # Задаем размер массива
random_numbers = generate_random_numbers(array_size)
print("Сгенерированный массив:", random_numbers)
multiple1 = 2
multiple2 = 7
result = count_multiples(random_numbers, multiple1, multiple2)
print(f"Количество чисел, кратных {multiple1} и {multiple2}: {result}")
if __name__ == "__main__":
main()
Программа создает массив из 100 случайных двузначных чисел, а затем находит количество чисел в массиве, которые одновременно кратны 2 и 7. Вы можете изменить значение array_size
, если хотите получить другой размер массива.


Похожие вопросы
Топ вопросов за вчера в категории Информатика









Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili