Вопрос задан 20.07.2023 в 06:27. Предмет Информатика. Спрашивает Крохалев Никита.

1. Задать массив m(7)случайными числами от 12 до 73. 2. Найти количество элементов массива ,

стоящих на нечетных местах. 3. Вывести на экран элементы массива кратные 5.
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Суржан Артур.

Ответ:

Объяснение:

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.


0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для выполнения данных задач, вам понадобится язык программирования. Я предположу, что вы используете язык программирования Python, и предоставлю вам код для решения каждой задачи:

python
import 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, чтобы запустить этот код. Если вы используете другой язык программирования, пожалуйста, дайте мне знать, и я предоставлю вам соответствующий код.

0 0

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

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

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

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