Question

Известно сопротивление каждого из 10 элементов электрической цепи , соединенных последовательно. Определите общее сопротивление цепи

Answer 1

Const
   N = 10;
Var
   R:array[1..N] of integer;
   i,Ro:integer;
Begin
Ro:=0;
For i:= 1 to N do
    Begin
    Write('R',i,' = ');
    ReadLn(R[i]);
    Ro:=Ro+R[i];
    End;
WriteLn('Ro = ',Ro);
End.