Quảng cáo
2 câu trả lời 206
uses crt;
var A:array [1..1000] of integer;
i,n:integer; S:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
writeln('Trung binh cong la: ',S:4:2);
readln
end.
var A:array [1..1000] of integer;
i,n:integer; S:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
writeln('Trung binh cong la: ',S:4:2);
readln
end.
program tbcong;
uses crt;
var a:array[1..100]of integer;
n,i,t:integer;
tbc:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('a[ ',i, ']= '); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
tbc:=t/n;
writeln('Trung binh cong cua day so la: ',tbc:4:2);
readln;
end.
n,i,t:integer;
tbc:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('a[ ',i, ']= '); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
tbc:=t/n;
writeln('Trung binh cong cua day so la: ',tbc:4:2);
readln;
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
44988 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34460
-
Đã trả lời bởi chuyên gia
30241
-
Hỏi từ APP VIETJACK27169
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
21825
Thành viên hăng hái nhất trong tuần
-
보고 싶어요
2140 điểm
-
😗
900 điểm
-
🌷김은✨
590 điểm
-
`color{blue}text{HuyTùng☢`
575 điểm
-
𝘳𝘺𝘯.𝘭𝘦𝘦ッ
540 điểm
-
jgdmaX
345 điểm
-
౨ৎ𝘉ắ𝘱ت𝘭𝘶ộ𝘤تđê⋅˚₊‧ ଳ⋆.࿔*:･🌽
300 điểm
-
Kiều Anh 295 điểm
-
돈이없다 💸😭
260 điểm
-
༘⋆nhỏ nho𓏲ּ𝄢
225 điểm
-
devestro
210 điểm
-
너 없는 파리
190 điểm
-
Ben 23K
180 điểm
-
누가 고철을 팔고 싶어할까요🗑️🗑️
160 điểm
-
Hai Trieu
150 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước8254
-
3 năm trước7767
-
3 năm trước6590
-
3 năm trước6481
-
3 năm trước6307
Gửi báo cáo thành công!
