Question

Помогите,как составить программу которая формирует массив из 16 случайных чисел от -20 до 20 и определяет если в этом массиве хотя бы одно число кратное трём

Answer 1

Var a:array[1..16]of integer;
i,k:integer;
begin
for i:=1 to 16 do begin a[i]:=random(41)-20; write(a[i],' '); end;
for i:=1 to 16 do if (a[i] mod 3=0) and (a[i]<>0) then begin writeln('est'); k:=1; break; end;
if k<>1 then writeln('net');
end.

Answer 2

Для составления программы, которая формирует массив из 16 случайных чисел от -20 до 20 и определяет, есть ли в этом массиве хотя бы одно число, кратное трём, можно использовать язык программирования Python. Вот пример программы, которая выполняет указанную задачу:

import random

# Функция для проверки, есть ли в массиве число, кратное трём
def check_multiple_of_three(array):
    for num in array:
        if num % 3 == 0:
            return True
    return False

# Формирование массива из 16 случайных чисел от -20 до 20
array = [random.randint(-20, 20) for _ in range(16)]

# Проверка наличия числа, кратного трём, в массиве
has_multiple_of_three = check_multiple_of_three(array)

# Вывод результатов
print("Сформированный массив:", array)
if has_multiple_of_three:
    print("В массиве есть число, кратное трём.")
else:
    print("В массиве нет чисел, кратных трём.")

В этой программе мы используем модуль `random` для генерации случайных чисел. Функция `check_multiple_of_three` проверяет каждое число в массиве на кратность трём. Если хотя бы одно число кратно трём, функция возвращает `True`, в противном случае возвращает `False`. Затем мы формируем массив из 16 случайных чисел от -20 до 20 с помощью генератора списков. После этого мы вызываем функцию `check_multiple_of_three` для проверки наличия числа, кратного трём, в массиве. Наконец, мы выводим сформированный массив и результат проверки.

Примечание: Каждый раз при запуске программы будет формироваться новый массив из случайных чисел, поэтому результаты могут отличаться при каждом запуске.

Надеюсь, эта информация будет полезной! Если у вас возникнут ещё вопросы, не стесняйтесь задавать.