
Вопрос задан 20.07.2023 в 06:27.
Предмет Информатика.
Спрашивает Крохалев Никита.
1. Задать массив m(7)случайными числами от 12 до 73. 2. Найти количество элементов массива ,
стоящих на нечетных местах. 3. Вывести на экран элементы массива кратные 5.

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

Отвечает Суржан Артур.
Ответ:
Объяснение:
var
m:array[1..7] of integer;
i,kol:integer;
begin
for i:=1 to 7 do
begin
m[i]:=random(12,73);
write('m[',i,']= ',m[i],' ') end;
writeln('');
writeln('Элементы массива кратные 5');
for i:=1 to 7 do
begin
if i mod 2=1 then kol:=kol+1;
if m[i] mod 5= 0 then
writeln (m[i]);
end;
writeln('Количество элементов, стоящих на нечётных местах = ',kol);
end.




Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Для выполнения данных задач, вам понадобится язык программирования. Я предположу, что вы используете язык программирования Python, и предоставлю вам код для решения каждой задачи:
pythonimport random
# Задача 1: Задать массив m(7) случайными числами от 12 до 73.
m = [random.randint(12, 73) for _ in range(7)]
# Задача 2: Найти количество элементов массива, стоящих на нечетных местах.
odd_position_count = len(m[1::2]) # Считаем элементы, начиная с первого и пропуская через один.
# Задача 3: Вывести на экран элементы массива, кратные 5.
multiple_of_5 = [num for num in m if num % 5 == 0]
# Вывод результатов
print("Массив:", m)
print("Количество элементов на нечетных местах:", odd_position_count)
print("Элементы массива, кратные 5:", multiple_of_5)
Пожалуйста, убедитесь, что у вас установлен Python, чтобы запустить этот код. Если вы используете другой язык программирования, пожалуйста, дайте мне знать, и я предоставлю вам соответствующий код.


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

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

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