Вопрос задан 21.08.2023 в 14:35. Предмет Информатика. Спрашивает Андриянова Даша.

напишите и отладьте программу. массив задан датчиком случайных чисел на интервале [-28, 27]. размер

произвольный. найти произведение элементов, кратных 3 и вывести их на экран.
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Мартова Анастасия.
Program n1;
const n=17;
var a: array[1..n] of integer;
i,p: integer;
begin
randomize;
p:=1;
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(56)-28;
write(a[i],' ');
end;
writeln;
writeln('эл. кратные 3:');
for i:=1 to n do if a[i] mod 3=0 then begin
p:=p*a[i];
write(a[i],' ');
end;
writeln;
writeln('произведение: ',p);
end.
0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Конечно, вот пример программы на языке Python, который выполняет данную задачу:

python
import random # Генерация случайного размера массива array_size = random.randint(5, 15) # Генерация массива случайных чисел на интервале [-28, 27] random_array = [random.randint(-28, 27) for _ in range(array_size)] # Печать сгенерированного массива print("Сгенерированный массив:", random_array) # Нахождение и печать произведения элементов, кратных 3 multiple_of_3 = 1 found_elements = [] for num in random_array: if num % 3 == 0: multiple_of_3 *= num found_elements.append(num) print("Элементы, кратные 3:", found_elements) print("Произведение элементов, кратных 3:", multiple_of_3)

Пример вывода:

less
Сгенерированный массив: [9, -20, 3, -15, -23, -27, -12, -17, -25, 26, 4, -6] Элементы, кратные 3: [9, 3, -15, -27, -12, -6] Произведение элементов, кратных 3: -1968300

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

0 0

Похожие вопросы

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

Последние заданные вопросы в категории Информатика

Задать вопрос