Khai báo biến mảng có tên bất kì gồm 10 phần tử, mỗi phần tử dùng để lưu điểm học sinh
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
ST
0
ML
17 tháng 4 2022
Program HOC24;
var d,N,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0; d:=0;
for i:=1 to n do
begin
t:=t+a[i];
if a[i]>0 then d:=d+1;
end;
writeln('Tong day so la: ',t);
write('Co ',d,' so nguyen duong');
readln
end.
NH
1
ML
24 tháng 3 2022
B sửa lại đề nhé.
for i:=1 to 6 do
begin j:=j+1; k:=k+j; end;
____________________
j=2; k=3;
Vòng lặp thứ nhất: i=1, j=j+1=2+1=3; k=k+j=3+3=6
Vòng lặp thứ hai: i=2; j=j+1=3+1=4; k:=k+j=6+4=10
Vòng lặp thứ ba: i=3; j=j+1=4+1=5; k=k+j=10+5=15
Vòng lặp thứ 4: i=4; j=j+1=5+1=6; k=k+j=15+6=21
Vòng lặp thứ 5: i=5; j=j+1=6+1=7; k=k+j=21+7=28
Vòng lặp thứ 6: i=6; j=j+1=7+1=8; k=k+j=28+8=36
Vậy j=8; k=36