ПОМОГИТЕ РЕШИТЬ!!!!!!!!!!!

DIM A(10) AS INTEGER

s=0

FOR i = 1 TO 10

A(i)=i * 2

s=s + A(i)

NEXT i

PRINT s

END


или


Var s,i: integer;

A[1..10] of integer;

Begin

s:=0;

for i:=1 to 10 do

begin

A[i]:=i * 2;

s:=s + A[i];

end;

write (s);

End.


Помогите решить!!!!!

Ответ:

110

Объяснение:

Сумма удвоенных первых 10 членов натурального ряда равна удвоенной сумме этих членов натурального ряда. S=2*n*(n+1}/2=n*(n+1)=10*11=110