Одномерный массив. Рассчитать сопротивление сложного соединения.

[NamYola]

Одномерный массив. Рассчитать сопротивление сложного соединения.

День добрый!
Вот условие задачи:

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

(Тест:Если задан массив: 10 20 0 10 5 5 4 ,то ответом будет 13,33 Ом)

var
sum_r,sum,pr,r: integer;
ans: real;
begin
sum_r:=0;
pr:=1;
while not eoln do
begin
read(r);
if r<>0 then
sum_r:=sum_r+r
else
begin
sum:=sum+sum_r;
pr:=pr*sum_r;
sum_r:=0;
end;
end;
if sum_r<>0 then
begin
sum:=sum+sum_r;
pr:=pr*sum_r;
end;
ans:=pr/sum;
writeln(ans:2,' Om');
end.



Вот решение нашел,но че-т под массив написать не могу,не работает прога

Помогите..

 

[Vladimir_S]

Помогите..

Попробую. Правда, не очень понял, что собой символизует переменная pr и зачем там вообще нужен массив. Так что вот вариант - правда без массива. Вначале нужно задать полное число резисторов, ВКЛЮЧАЯ ПРОМЕЖУТОЧНЫЕ НУЛИ. Дальше последовательно ввести номиналы (включая опять же нули), и - voila!

var
 N:Byte;
 sum,r,ans:real;
 i:Byte;

begin
 write('N(<256)= ');
 readln(N);
 writeln;
 ans:=0;
 sum:=0;
 For i:=1 to N do
  begin
   write('R',i,'= ');
   readln(r);
   if r>0 then
    sum:=sum+r;
   if (r=0) or (i=N) then
    begin
     ans:=ans+1/sum;
     sum:=0;
    end;
  end;
 writeln;
 writeln('Answer is ',1/ans:8:2,' Ohm');
 readln
end.