Question

1. Ввести массив а[n] с клавиатуры. Найти количество максимальных элементов. 2. Ввести массив а[n] с клавиатуры. Все отрицательные элементы заменить на ноль

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ReadArrInteger(ReadInteger('n='));
  Writeln('Кол-во максимальных элементов: ',a.Where(t->t=a.Max).Count)
end.

№2

begin
  var a:=ReadArrInteger(ReadInteger('n='));
  a.Transform(t->t<0 ? 0 : t); a.Println
end.

Answer 2

Для решения этих задач можно написать программу на языке программирования. Ниже приведены примеры решений задач на языке Python.

1. Найти количество максимальных элементов в массиве:

pythonCopy code
def count_max_elements(arr):
    if not arr:
        return 0

    max_element = max(arr)
    count = arr.count(max_element)
    return count

# Ввод массива с клавиатуры
n = int(input("Введите размер массива: "))
a = []
for i in range(n):
    element = int(input(f"Введите элемент {i + 1}: "))
    a.append(element)

result = count_max_elements(a)
print(f"Количество максимальных элементов в массиве: {result}")

2. Заменить все отрицательные элементы массива на ноль:

pythonCopy code
def replace_negatives_with_zero(arr):
    for i in range(len(arr)):
        if arr[i] < 0:
            arr[i] = 0

# Ввод массива с клавиатуры
n = int(input("Введите размер массива: "))
a = []
for i in range(n):
    element = int(input(f"Введите элемент {i + 1}: "))
    a.append(element)

replace_negatives_with_zero(a)
print("Массив с отрицательными элементами заменен на нули:")
print(a)

Пример работы программ:

1. Найти количество максимальных элементов в массиве:

yamlCopy code
Введите размер массива: 6
Введите элемент 1: 2
Введите элемент 2: 5
Введите элемент 3: 5
Введите элемент 4: 3
Введите элемент 5: 2
Введите элемент 6: 5
Количество максимальных элементов в массиве: 3

2. Заменить все отрицательные элементы массива на ноль:

yamlCopy code
Введите размер массива: 5
Введите элемент 1: 2
Введите элемент 2: -3
Введите элемент 3: 4
Введите элемент 4: -1
Введите элемент 5: 0
Массив с отрицательными элементами заменен на нули:
[2, 0, 4, 0, 0]

Обратите внимание, что в обоих примерах вводится массив с клавиатуры, и после обработки выводится результат.