Дано n цілих чисел. Знайти серед них від'ємні числа та їх порядковий номер. Якщо є декілька таких чисел, то визначте порядковий номер першого такого числа. Якщо такі
числа відсутні, то вивести відповідне повідомлення.

inFile = open('input.txt', 'r', encoding='utf8')

outFile = open('output.txt', 'w', encoding='utf8')

score = []

i = 0

nstr = 1

for line in inFile:

if nstr == 1:

k = int(line)

else:

line1 = line.split()

sc3 = int(line1[-1])

sc2 = int(line1[-2])

sc1 = int(line1[-3])

if sc1 >= 40 and sc2 >= 40 and sc3 >= 40:

score.append(sc1 + sc2 + sc3)

i += 1

nstr += 1

inFile.close()

if k >= i:

print(0, file=outFile)

else:

score.sort(reverse=True)

if score[k-1] > score[k]:

print(score[k-1], file=outFile)

else:

ans = ''

for ii in score[k-1::-1]:

if score[k-1] < ii and ans == '':

ans = ii

if ans == '':

ans = 1

print(ans, file=outFile)

outFile.close()

PROGRAM MatrixMax
var a : array [1..3, 1..4] of integer
b : array [1..3] of integer
Max, i, j : integer
BEGIN
crt;
for i:=1 to 3 do 
begin
for j:=1 to 4 do
begin
read (a[i, j]); // вводим элементы в массив a[1..3, 1..4]
end;
writeln; // делаем пустой перевод строки
end;
for i:=1 to 3 do 
begin
b[i] := a[i, 1];
for j:=1 to 4 do
begin
if a[i, j] > b[i] then b[i] := a[i, j];
// находим максимальный элемент в каждой строке и записываем в b[1..3]
end;
end;
Max := b[1];
for i:=1 to 3 do if b[i] > Max then Max := b[i];
// Находим максимальный элемент из максимальных элементов
writeln (Max); // Выводим его на экран
END.