Question

Составить программу,которая формирует одномерный массив и выводит на экран все элементы,кратные 7.

Answer 1

Const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
    begin
        for i:=1 to n do
               begin
                   a[i]:=random(100);
                    write(a[i]:4);
                end;
writeln; 
           for i:=1 to n do
                if a[i] mod 7=0 then
                 begin
                      write(a[i]:4);
                      k:=k+1;
                 end;
if k=0 then
    writeln('нет кратных 7')
end.

          

Answer 2

Конечно! Вот пример программы на языке Python, которая формирует одномерный массив и выводит на экран все элементы, кратные 7:

pythonCopy code
def find_multiples_of_seven():
    n = int(input("Введите размер массива: "))  # Вводим размер массива
    arr = []  # Создаем пустой массив

    # Заполняем массив случайными числами
    for i in range(n):
        arr.append(i + 1)

    print("Массив, содержащий числа от 1 до", n, ":")
    print(arr)

    # Находим и выводим на экран элементы, кратные 7
    print("Элементы массива, кратные 7:")
    multiples_of_seven = [num for num in arr if num % 7 == 0]
    print(multiples_of_seven)


find_multiples_of_seven()

Программа сначала запрашивает у пользователя размер массива (количество элементов), затем создает массив и заполняет его числами от 1 до n. Затем она находит и выводит на экран все элементы массива, которые являются кратными 7.

Обратите внимание, что в данном примере массив заполняется числами от 1 до n, но вы можете изменить эту логику в соответствии с вашими требованиями.