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

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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт