Организация сложных циклов

[Jefka]

Дан массив А, содержащий 10 элементов вещественного типа, в котором первые k элементов имеют один знак, а остальные – другой. Определить индекс элемента массива, у которого знак сменился на противоположный. Найти сумму элементов массива, начиная с k+1-го.
Индексацию элементов заданного массива начать с 10. Для перебора элементов массива использовать оператор Repeat.

[Unique_Maks]

задаем k и знак с клавы и ищем все элементы у которых сменился знак на противоположный?

[Mad_Cat]

K:=10;
while a[k]*a[k+1]>0 do k:=k+1;
s:=0;
k:=k+1;
repeat
s:=s+a[k];
until k>20;

Организация сложных циклов

а куда тут сложные циклы прикрутить я хз