помощь с решением следующих задач

[Карась]

Только что скомпилил. Работает.
А что у тебя не работает?

[BR@BUS]

Сообщение от Карась

Только что скомпилил. Работает.
А что у тебя не работает?

Мне препод сказал что ошибка во втором условии. Ти па она работать не будет.

[BR@BUS]

Сообщение от Карась

Только что скомпилил. Работает.
А что у тебя не работает?

хм, прикинь ща тож скомпилировал, работает... А в шараге не работала хм. Ток я не понял че он придрался ко второму условию.. Типа говорит если взять к=1 то будет if 2*k< (a[1-1]+a[1+1])/2 , а нулевого коэф у нас нет по условию. Также и с 2500-ю

[puporev]

хм, прикинь ща тож скомпилировал, работает

Оттого, что программа "компилится", еще не значит, что она правильно работает. Проверьте при разных первых и последних элементах последовательности и увидите, что решение неправильно. В Паскале, если выходишь за пределы массива, все работает, только он сам придумывает недостающие числа и выдает что попало, не сообщая об ошибке. В Делфи такое не пролезет. Поэтому нужно писать не

for k:=1 to n do

а for k:=2 to n-1 do
Кроме того у тебя в условии не 2*к, а 2^k, а это значит нужно еще дополнительно функцию написать.