Question

Вывести все элементы массива кратные 3, помогите пожалуйста с кодом

Answer 1

Код на паскале?
var i:integer; a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(20)+1;
if a[i] mod 3=0 then writeln(a[i]);
end;
readln;
end.

Answer 2

Паскаль АВС

Program  GreatWhite;
const
  n=50;
var
  mass: array [1..n] of integer;
  i: integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Среди элементов массива программа находит числа, кратные 3');
  writeln('*** Вычисляю... ***');
  randomize;
  for i:=1 to n do begin
    mass[i]:=random(100)-50;
    if mass[i] mod 3=0 then writeln(mass[i]);
  end;
end.

Answer 3

Конечно, я могу помочь вам с кодом для вывода всех элементов массива, кратных 3. Вот пример кода на языке Python:

# Задаем исходный массив
array = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]

# Создаем пустой список для хранения элементов, кратных 3
multiples_of_3 = []

# Итерируемся по каждому элементу массива
for num in array:
    # Проверяем, делится ли элемент на 3 без остатка
    if num % 3 == 0:
        # Если да, добавляем его в список multiples_of_3
        multiples_of_3.append(num)

# Выводим список элементов, кратных 3
print(multiples_of_3)

В этом примере мы создаем исходный массив `[1, 2, 3, 4, 5, 6, 7, 8, 9, 10]` и затем итерируемся по каждому элементу. Если элемент делится на 3 без остатка, мы добавляем его в список `multiples_of_3`. В конце мы выводим этот список.

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