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

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.

Оцени ответ
Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку
Самые новые вопросы