Question

Напишите программу, которая в последовательности целых чисел определяет максимальное отрицательное число и его порядковый номер в этой последовательности. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется отрицательное число. Количество чисел не превышает 1000. Введённые числа принимают значения от -15 000 и не превышают 15 000. Программа должна вывести два числа — максимальное отрицательное число и порядковый номер этого числа в данной последовательности чисел. входные числа 5 26 -11 9 -2 36 выходные -2 4

Answer 1

Ответ:

• begin
• var a := ReadArrInteger(ReadInteger);
• var m := a.Where(x->x<0).Max;
• writeln(m);
• write(a.FindIndex(x->x=m)+1);
• end.

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

Answer 2

// PascalABC.NET

begin

 var n := ReadInteger;

 var (imax, max) := (0, -15001);

 for var i := 1 to n do

 begin  

   var t := ReadInteger;

   if (t < 0) and (t > max) then

     (imax, max) := (i, t)

 end;

 Write(max, NewLine, imax)

end.

Answer 3

Конечно, вот пример программы на языке Python, который выполняет указанную задачу:

pythonCopy code
def find_max_negative(sequence):
    max_negative = float('-inf')
    max_negative_index = -1

    for i, num in enumerate(sequence):
        if num < 0 and num > max_negative:
            max_negative = num
            max_negative_index = i + 1  # Порядковый номер начинается с 1

    return max_negative, max_negative_index

# Ввод количества чисел в последовательности
n = int(input("Введите количество чисел: "))

# Ввод самой последовательности чисел
sequence = []
for _ in range(n):
    num = int(input("Введите число: "))
    sequence.append(num)

max_negative, max_negative_index = find_max_negative(sequence)

print("Максимальное отрицательное число:", max_negative)
print("Порядковый номер:", max_negative_index)

Вы можете вставить этот код в файл с расширением .py и выполнить его с помощью интерпретатора Python. Программа попросит вас ввести количество чисел в последовательности и затем сами числа. После этого она выведет максимальное отрицательное число и его порядковый номер.