Question

В массиве Z длины m обнулить значение минимального элемента. Определить количество отрицательных элементов массива

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
    var a := ArrRandom(ReadInteger('m='), -50, 50);
    a.Println;
    a[a.IndexMin] := 0;
    a.Println;
    Writeln('x<0: ', a.Count(x -> x < 0));
end.

Answer 2

Чтобы обнулить значение минимального элемента массива Z, вам потребуется найти его индекс. Затем вы можете присвоить элементу с этим индексом значение 0.

Вот пример решения данной задачи на языке Python:

pythonCopy code
def zero_min_element(Z):
    if len(Z) == 0:
        return Z  # Если массив пустой, возвращаем его без изменений

    min_index = 0
    for i in range(1, len(Z)):
        if Z[i] < Z[min_index]:
            min_index = i

    Z[min_index] = 0

    return Z

def count_negative_elements(Z):
    count = 0
    for num in Z:
        if num < 0:
            count += 1

    return count

# Пример использования
Z = [5, -2, 10, -8, 0, -3, 7]
Z = zero_min_element(Z)
negative_count = count_negative_elements(Z)

print("Массив после обнуления минимального элемента:", Z)
print("Количество отрицательных элементов в массиве:", negative_count)

В данном примере функция zero_min_element находит индекс минимального элемента в массиве и присваивает ему значение 0. Затем функция count_negative_elements считает количество отрицательных элементов в массиве. Результат выполнения кода будет следующим:

lessCopy code
Массив после обнуления минимального элемента: [5, 0, 10, -8, 0, -3, 7]
Количество отрицательных элементов в массиве: 2

В данном случае минимальный элемент (-2) был заменен на 0, а количество отрицательных элементов в массиве равно 2.