в линейный массив вещественных чисел на 8-е место вставить элемент, равный сумме первых 10 элементов массива.

Var n, i: Integer;
    sum: Double;
    a: Array[1..1000] of Double;
begin
    ReadLn(n);
    for i:=1 to n do Read(a[i]);
    sum:=0;
    for i:=1 to 10 do sum:=sum+a[i];
    a[8]:=sum;
    WriteLn('--');
    for i:=1 to n do Write(a[i]:0:3, ', ');
end.