
Вопрос задан 03.05.2021 в 05:15.
Предмет Информатика.
Спрашивает Арифуллина Эмилия.
Создать массив из 25 целых случайных чисел в интервале [-50,50]. Вывести на количество четных и
сумму нечетных элементов массива

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

Отвечает Добролюбов Семён.
Var
i, chet, summa: integer;
mass:array[0..24] of integer;
Begin
for i:=0 to 24 do
Begin
mass[i]:= random(-50,50);
if (mass[i] mod 2 = 0) then
Begin
chet+=1;
writeln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и чётен.');
End
else
Begin
writeln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и нечётен.');
summa+=mass[i];
End;
End;
Writeln('Количество чётных членов массива: ', chet);
Write('Сумма нечётных членов массива: ', summa);
End.
i, chet, summa: integer;
mass:array[0..24] of integer;
Begin
for i:=0 to 24 do
Begin
mass[i]:= random(-50,50);
if (mass[i] mod 2 = 0) then
Begin
chet+=1;
writeln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и чётен.');
End
else
Begin
writeln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и нечётен.');
summa+=mass[i];
End;
End;
Writeln('Количество чётных членов массива: ', chet);
Write('Сумма нечётных членов массива: ', summa);
End.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Вот пример кода на языке Python, который создает массив из 25 целых случайных чисел в интервале [-50,50], выводит на экран количество четных элементов массива и сумму нечетных элементов массива:
pythonimport random
# Создание массива из 25 случайных целых чисел в интервале [-50,50]
arr = [random.randint(-50, 50) for _ in range(25)]
# Подсчет количества четных элементов массива
even_count = sum(1 for num in arr if num % 2 == 0)
# Подсчет суммы нечетных элементов массива
odd_sum = sum(num for num in arr if num % 2 != 0)
# Вывод результата на экран
print(f"Количество четных элементов: {even_count}")
print(f"Сумма нечетных элементов: {odd_sum}")
Пример вывода:
Количество четных элементов: 11 Сумма нечетных элементов: 198


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