Question

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

Answer 1

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(30, -50, 50);

 a.Println;

 Writeln('Сумма нечетных значений равна ', a.Where(t -> t.IsOdd).Sum);

 var n := ReadInteger('A=');

 Print('Искомые индексы:');

 a.Select((v, i)-> (v, i + 1)).Where(t -> t[0] > n)

     .Select(t -> t[1]).Println;

 n := ReadInteger('k=');

 if a.Any(t -> t mod n = 0) then Println('Есть кратные')

 else Println('Нет кратных')

end.

Answer 2

Давайте разберем каждую задачу по очереди.

1. Заполнение массива: Для примера заполним массив случайными целыми числами от -50 до 50.

pythonCopy code
import random

array = [random.randint(-50, 50) for _ in range(30)]
print("Массив:", array)

2. Найти сумму элементов массива с нечетным значением:

pythonCopy code
sum_odd = sum(x for x in array if x % 2 != 0)
print("Сумма элементов с нечетным значением:", sum_odd)

3. Вывести индексы элементов, значения которых больше заданного числа А:

pythonCopy code
A = int(input("Введите число A: "))
indexes_greater_than_A = [i for i, x in enumerate(array) if x > A]
print("Индексы элементов, значения которых больше A:", indexes_greater_than_A)

4. Определить, есть ли в данном массиве положительные элементы, кратные k:

pythonCopy code
k = int(input("Введите число k: "))
positive_multiples_k = any(x > 0 and x % k == 0 for x in array)
print("В данном массиве есть положительные элементы, кратные k:", positive_multiples_k)

Объединим все вместе:

pythonCopy code
import random

# Заполнение массива случайными числами
array = [random.randint(-50, 50) for _ in range(30)]
print("Массив:", array)

# Найти сумму элементов массива с нечетным значением
sum_odd = sum(x for x in array if x % 2 != 0)
print("Сумма элементов с нечетным значением:", sum_odd)

# Вывести индексы элементов, значения которых больше заданного числа А
A = int(input("Введите число A: "))
indexes_greater_than_A = [i for i, x in enumerate(array) if x > A]
print("Индексы элементов, значения которых больше A:", indexes_greater_than_A)

# Определить, есть ли в данном массиве положительные элементы, кратные k
k = int(input("Введите число k: "))
positive_multiples_k = any(x > 0 and x % k == 0 for x in array)
print("В данном массиве есть положительные элементы, кратные k:", positive_multiples_k)

Вы можете выполнить этот код, и он позволит вам решить поставленные задачи для вашего массива целых чисел.