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

Question

Информатика

Акиндин

31 декабря, 08:14

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

+2

Ответы (1)

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

Аврея · 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.