Question

ПОМОГИТЕ, ПОЖАЛУЙСТА 1. Создать массив вещественных чисел. Выбрать среди отрицательных чисел наименьшее значение. Вывести на экран: исходный массив, координату найденного элемента. 2. Создать массив целых чисел. Найти сумму нечетных элементов массива. Вывести результат работы на экран.

Answer 1

===== PascalABC.NET =====

- 1 -

begin

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

 var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;

 a.Println;

 var i := a.IndexMin;

 Println('Минимальный элемент с номером', i + 1, 'равен', a[i]);

end.

- 2 -

begin

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

 var a:= ArrRandom(n, -99, 99);

 a.Println;

 Println('Сумма нечетных элементов', a.Where(p -> p.IsEven).Sum)

end.

Answer 2

Конечно! Вот два примера решения ваших задач на языке программирования Python:

1. Создание массива вещественных чисел, поиск наименьшего отрицательного значения и вывод результата:

pythonCopy code
# Создание массива вещественных чисел
numbers = [1.5, -2.7, 3.8, -4.2, 5.1, -6.3]

# Поиск наименьшего отрицательного значения
min_negative = None
min_negative_index = None
for i, num in enumerate(numbers):
    if num < 0:
        if min_negative is None or num < min_negative:
            min_negative = num
            min_negative_index = i

# Вывод исходного массива и координаты найденного элемента
print("Исходный массив:", numbers)
if min_negative_index is not None:
    print("Координата найденного элемента:", min_negative_index)
    print("Наименьшее отрицательное значение:", min_negative)
else:
    print("Отрицательные значения отсутствуют в массиве.")

2. Создание массива целых чисел, нахождение суммы нечетных элементов и вывод результата:

pythonCopy code
# Создание массива целых чисел
numbers = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]

# Нахождение суммы нечетных элементов
odd_sum = 0
for num in numbers:
    if num % 2 != 0:
        odd_sum += num

# Вывод результата
print("Исходный массив:", numbers)
print("Сумма нечетных элементов:", odd_sum)

Надеюсь, это поможет вам решить ваши задачи! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.