Форум » Динамическое программирование » Не сходится ответ в № 2657 » Ответить
Не сходится ответ в № 2657
inform_lesson: Здравствуйте. В №2657 у меня получается 2000. В чём ошибка? var m:array[1..1000] of integer; i,j,max,s,a:integer; begin assign(input,'2657.txt'); max:=0; for i:=1 to 1000 do begin readln(a); m:=a; end; for i:=4 to 1000 do begin for j:=i-3 to 997 do begin s:=m+m[j]; if s>max then max:=s; end; end; write(max); end.
Ответов - 2
cabanov.alexey: Дана последовательность натуральных чисел. Рассматриваются всевозможные пары чисел, порядковые номера которых отличаются не более чем на 3. [pre2] for i:=4 to 1000 do begin for j:=i-3 to i-1 do [/pre2]
inform_lesson: Большое спасибо
полная версия страницы