
Вопрос задан 21.08.2023 в 14:35.
Предмет Информатика.
Спрашивает Андриянова Даша.
напишите и отладьте программу. массив задан датчиком случайных чисел на интервале [-28, 27]. размер
произвольный. найти произведение элементов, кратных 3 и вывести их на экран.

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

Отвечает Мартова Анастасия.
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.
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.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, вот пример программы на языке Python, который выполняет данную задачу:
pythonimport 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
Обратите внимание, что каждый раз при запуске программы массив будет генерироваться заново, поэтому результаты будут разными.


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

Информатика 572

Информатика 1113

Информатика 10

Информатика 32

Информатика 16

Информатика 578

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