Question

Задача 1. Задан одномерный целочисленный массив размерности 7. Найти и вывести на экран его элементы, которые меньше 12. Задача 2. Задан одномерный целочисленный массив размерности 10. Вывести на экран номера положительных элементов этого массива Если выполните хотя бы 1 из 2 то буду считать что справились, даю 40 баллов!

Answer 1

// PascalABC.NET 3.6.3

begin

 var a := ArrRandom(7, -20, 30);

 a.Println;

 a.Where(p -> p < 12).Println;

 Writeln;

 var b := ArrRandom(10, -50, 50);

 b.Println;

 b.Indices((v, i) -> v > 0).Select(p -> p + 1).Print

end.

Answer 2

Задача 1:

pythonCopy code
# Заданный массив
array = [5, 12, 8, 3, 15, 9, 10]

# Вывод элементов меньше 12
print("Элементы меньше 12:")
for element in array:
    if element < 12:
        print(element)

Задача 2:

pythonCopy code
# Заданный массив
array = [-3, 7, 0, -9, 14, -6, 21, -2, 8, 10]

# Вывод номеров положительных элементов
print("Номера положительных элементов:")
for index, element in enumerate(array):
    if element > 0:
        print(index)

Обратите внимание, что в коде для задачи 2 используется индексация с 0 (первый элемент имеет индекс 0, второй - индекс 1 и так далее). Также, если вам необходимо выполнить обе задачи, просто объедините код для обеих задач.