Организация циклов

[Jefka]

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

[Stilet]

Покажи код ввода массива.

[Jefka]

Только пример есть, и все.
Перед выполнением следует изучить разделы 3.8 – 3.9, затем разработать алгоритм задачи, затем составить програм-му.
Пример выполнения задачи 3
Дан массив А, содержащий 20 элементов целого типа – положительных и отрицательных. Сформировать массивы В и С, содержащие соответственно положительные и отрицательные элементы массива А. Найти сумму элементов массивов В и С и количество содержащихся в них элементов. Индексацию элементов заданного массива начать с –5. Для перебора элементов массива использовать оператор For.
Программа

Program z3;
  Var a: Array [-5..14] of Real;
         b, c: Array [1..20] of Real;
          i, bi, ci: Integer;           s1, s2: Real;
Begin
   For i:= -5 To 14 Do   Read (a[i]);
   s1:=0;         s2:=0;          bi:=0;           ci:=0;
   For i:= -5 To 14 Do
      If  a[i] > 0 
         Then Begin bi:=bi+1;    b[bi]:=a[i]      s1:= s1+b[bi]    End
         Else  Begin  ci:=ci+1;     c[ci]:=a[i]      s2:=s2+c[ci]    End;
   Writeln (bi, ’ положительных элементов:’ );
   For i:= 1 To bi Do  Write (b[i]);    Writeln;      
   Writeln(’ их сумма равна’, s1);
   Writeln (ci, ’ отрицательных элементов:’)
   For i:= 1 To ci Do  Write (c[i]);     Writeln;      
   Writeln(’их сумма равна’, s2);
End.

[ZX Spectrum-128]

Jefka
, у вас есть пример, вот из него и вытаскивайте код заполнения массива.

[Stilet]

Кокой ужос....

var a:array[10..10] of integer; 
i,ie,k,s:integer;
begin
 readln(k);
 i:=10; repeat
  readln(a[i]);
  if (i>10)and(a[i]*a[i-1]<0) then ie:=i;
  if (i>=k) then s:=s+a[i];
 until i=10;
 write(ie,s:10);
 readln;
end;

Моя идея понятна?