
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти: 1)сумму
элементов, имеющих нечетное значение; 2)вывести индексы тех элементов, значения которых больше заданного числа А.

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

mas:array [1..20] of integer;
i,sum,A:integer;
begin
for i:=1 to 20 do
read(mas[i]);
for i:=1 to 20 do
If odd(mas[i]) then
sum:=sum+mas[i];
writeln('Сумма элементов имеющих нечетное значение = ',sum);
writeln('Введите А');
readln(A);
writeln('Индексы элементов, значение которых больше,чем А:');
for i:=1 to 20 do begin
if mas[i]>A then
write(i,' ');
end;
end.



Для решения данной задачи, вам потребуется написать программу на языке программирования. Ваша программа должна запрашивать у пользователя 20 целых чисел и сохранять их в массиве. Затем вы должны выполнить два действия:
1) Найти сумму элементов массива, которые имеют нечетное значение. 2) Вывести индексы элементов массива, значения которых больше заданного числа A.
Вот пример программы на языке Python, которая решает данную задачу:
```python # Запрашиваем у пользователя 20 целых чисел и сохраняем их в массиве array = [] for i in range(20): num = int(input("Введите число: ")) array.append(num)
# Находим сумму элементов массива с нечетными значениями odd_sum = sum([num for num in array if num % 2 != 0])
# Запрашиваем у пользователя число A A = int(input("Введите число A: "))
# Выводим индексы элементов массива, значения которых больше числа A indexes = [i for i, num in enumerate(array) if num > A]
# Выводим результаты print("Сумма элементов с нечетными значениями:", odd_sum) print("Индексы элементов, значения которых больше числа A:", indexes) ```
Вы можете запустить эту программу на своем компьютере, чтобы получить результаты для вашего массива и числа A.
Примечание: Пожалуйста, учтите, что данная программа написана на языке программирования Python и предназначена для запуска на компьютере. Если у вас возникнут вопросы по поводу других языков программирования или способов решения данной задачи, я с радостью помогу вам.


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







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