Рассчитать сопротивление цепи при последовательном и параллельном соединении участка цепи по выбору пользователя.

Var

R, Ro:real;

N:integer;

Begin

WriteLn ('1 - параллельное, любые другие цифры - последовательное') ;

ReadLn (R) ;

Write ('Введите количество проводников: ') ; ReadLn (N) ;

WriteLn ('Введите сопротивления этих проводников:') ;

Ro:=0;

if R = 1 then

For N: = 1 to N do

Begin

Read (R) ;

Ro:=Ro+1/R;

End

else

For N: = 1 to N do

Begin

Read (R) ;

Ro:=Ro+R;

End;

WriteLn ('Ro = ', Ro) ;

End.