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

Question

Информатика

Греция

11 марта, 12:51

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

+1

Ответы (1)

Знаете ответ на вопрос?

Нинуня · Answer 1

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.