Автор | Сообщение |
|
Отправлено: 02.03.23 11:52. Заголовок: 17.6071
Учитывал, что нумерация +1, однако мой мой ответ: 1935 11935 вместо: 1935 11936 ## var s:=ReadAllLines('17-361.txt'); var min40:=s.Select(x->x.ToInteger).Where(x->abs(x) mod 100 = 40).Min; var mx:=-100000; var (k,j):=(0,0); for var i:=0 to s.Length-3 do begin var a:=s[ i].ToInteger; var b:=s[i+1].ToInteger; var c:=s[i+2].ToInteger; var l:=lst(a,b,c); if (l.Distinct.Count=2) and (l.Count(x->x>min40)=3) then begin k+=1; var mx3:=max(a,b,c); if a = mx3 then j:=i+1; if b = mx3 then j:=i+2; if c = mx3 then j:=i+3; mx:=max(mx,mx3); end; end; print(k,j);
|
|
|
Ответов - 4
[только новые]
|
|
|
Отправлено: 02.03.23 16:02. Заголовок: К сожалению Вы не пр..
К сожалению, Вы не правильно поняли условие или не до конца обдумали поиск максимального порядкового номер элемента, отличного от остальных в данных тройках. Пусть у нас есть список чисел: 10 10 5 4 1. Ваш код выдаст ответ 2. Хотя правильным будет 3.
|
|
|
|
Отправлено: 03.03.23 08:14. Заголовок: Понял, спасибо за от..
Понял, спасибо за ответ! Попробую решить так)
|
|
|
|
Отправлено: 18.04.23 06:56. Заголовок: Если сильно не замор..
Если сильно не заморачиваться, то можно написать, примерно так: a = [ int(x) for x in open("17-361.txt") ] Min40 = min( int(x) for x in a if abs(x) % 100 == 40 ) count = maxNo = 0 for i in range(len(a)-2): if (a[ i]==a[i+1] and a[ i]!=a[i+2]) or (a[i+1]==a[i+2] and a[i+1]!=a[ i]) or (a[ i]==a[i+2] and a[ i]!=a[i+1]): if a[ i] > Min40 and a[i+1] > Min40 and a[i+2] > Min40: count += 1 maxNo = 2 + i + 1 print( count, maxNo ) # 1935 11936
|
|
|
|
Отправлено: 13.11.23 07:45. Заголовок: Можно так, только на..
Можно так, только надо будет в конце, глядя на вывод программы, понять, что не повторяется третий элемент тройки, значит его номер 11933+2+1 (т.к. еще и нумерация с 1) s=[int(c) for c in open('d:/1.txt')] m=min([c for c in s if abs(c)%100==40]) l=[(i,s[i:i+3]) for i in range(len(s)-2) if len(set(s[i:i+3]))==2 and min(s[i:i+3])>m] print(len(l),max(l)) >> 1935 (11933, [-1733, -1733, -33860])
|
|
|
|