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