Nhập vào 1 mảng gồm n phần tử. Yêu cầu thực hiện các nội dung sau:
a, in ra dãy số vừa nhập
b,tính tổng các phần tử lớn hơn 0
c,tính trung bình cộng các phần tử đã nhập
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.
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.
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
what?
=>đúng