const
n=20;
var
i,sopr:integer;
r:array [1..n] of integer;
begin
for i:=1 to n do
r[i]:=random(100);
sopr:=0;
for i:=1 to n do
sopr:=sopr+r[i];
writeln(sopr);
end.
Результат работы программы
В одномерном массиве хранится информация о сопротивлении каждого из 20 элементов электрической цепи.Все элементы соединены последовательно.Определить общее сопротивление цепи — Pascal(Паскаль)