Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
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
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin