в линейный массив вещественных чисел на 8-е место - вопрос №28011958 от VladProstoboy 22.01.2023 14:09

Question

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

VladProstoboy · Answer

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.