ПОЖАЛУЙСТА, ПОМОГИТЕ!!!!!!! В массиве хранится информация о сопротивлении каждого 20...

Question

ПОЖАЛУЙСТА, ПОМОГИТЕ!!!!!!!
В массиве хранится информация о сопротивлении каждого 20 элементов электрической цени. Все элементы соединены параллельно . Определить общее сопротивление цепи.

помогите написать программу

Answer 1

Const
   N = 20;
Var
   R:array[1..N] of integer;
   i:integer;
   Ro:real;
Begin
Randomize;
Ro:=0;
Write('Сопротивления проводников:');
For i:= 1 to N do
    Begin
    R[i]:=random(2*N)+1;
    Ro:=Ro+1/R[i];
    Write(' ',R[i])
    End;
WriteLn;
WriteLn('Ro = ',Ro)
End.