Program BTT;
Uses crt;
Var R:array[1..10000] of longint;
    n,i,t: longint;
Begin
        Clrscr;
        Write('Nhap so luong dien tro: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('Nhap gia tri cua dien tro ',i,': ');
                Readln(R[i]);
        End;

        t:=0;
        For i:=1 to n do
                t:=t+R[i];
        Write('Gia tri dien tro cua mach la: ',t);
        Readln
End.

---------------------------------

Mô tả quá trình thực hiện chương trình:

Giả sử có 3 điện trở có giá trị R1, R2, R3 lần lượt là 4, 5 và 6

--------------

Đầu tiên phải nhập số lượng điện trở n là 3

Gán giá trị điện trở của mạch lúc đầu t=0

Cho i chạy từ 1 -> n bằng vòng lặp For .. to .. do

i = 1

=> R[i] = R[1] = 4

t=t+R[1]=0+4=4

i=2

=> R[i] = R[2] = 5

t=t+R[2]=4+5=9

i=3

=> R[i] = R[3] = 6

t=t+R[3]=9+6=15

Vậy, điện trở của đoạn mạch là t = 15