Дан одномерный массив. найти сумму отрицательных элементов, стоящих на четных местах. хелп, , ))

Program qq; var a: array of [1..длина массива] of real;       i: integer;       summ: real; begin   summ: =0;   for i: =1 to длина массива  do read(a[i]);   for i: =1 to длина массива do   if (i mod 2 = 0) and (a[i]< 0) then summ: =summ+a[i];   writeln(summ); end.

Var a: array[1..10] of integer; cnt1, cnt2, i: integer; begin   for i: = 1 to 10 do     read(a[i]);   for i: = 1 to 5 do   if a[i] > 0 then cnt1 : = cnt1 + 1;   for i: = 6 to 10 do   if a[i] > 0 then cnt2 : = cnt2 + 1;   if cnt1 = cnt2 then writeln('количество пол-х элементов одинаково');   if cnt1 > cnt2 then writeln('количество пол-х элементов больше в первой половине');   if cnt1 < cnt2 then  writeln('количество пол-х элементов больше во второй половине'); end. пример: -1 -2 3 5 0 4 6 7 -2 -5 количество пол-х элементов больше во второй половине

Есть кнопочки антена, звонит в другом конце света, знаменитый, как айфон, получается (телефон) четыре ножки, одна доска, на нём стихи пишу гордо я! его ставят на любой пол, это создание называется (стол) музыка, игры, всё, что желаешь! туда и мультфильмы перекачаешь, информационного века моды писк, иначе зовётся лазерный (диск) туда запишешь всё, что надо, мысли, уроки, рисуй что попало! в этой брошюрке много страничек, что это? правильно! (записная книжка) она кликнуть на ссылку, она также может скушать весь сыр! о боже, что это? чудище кыш! живёт в норе, серая (мышь) мы в понедельник туда все идём, много учебников туда принесём! наш огород знаний, она прополола, наша прекрасная, любимая (школа) p.s. писал сам