Quảng cáo
1 câu trả lời 171
1 năm trước
program mang;
uses crt;
var i,n,tb:real;
s:longint;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n=');readln(n);
writeln('nhap mang:');
for i:=1 to n do
begin
writeln('a[',i,']=');readln(a[i]);
end;
writeln ;
for i:=1 to n do
if a[i] mod 3=0 then s:=s+a[i];
writeln('tb cac so chia het cho 3 la:',s/n:4:2);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK1 44256
-
Hỏi từ APP VIETJACK24640
-
Hỏi từ APP VIETJACK21086
Thành viên hăng hái nhất
Xếp hạng tuần này
Xếp hạng tháng này
VietJack3145 điểm
Thiên Bình1960 điểm
sbn1900 điểm
草原 (Phone 🐼)1425 điểm
hgiang900 điểm🐼 mở mồm ra thúi hơn thùng rác255 điểm
VShu dốt Toán255 điểm
ANONYMOUS IS LONELY DEATH180 điểm
domdomchua155 điểm
Rina125 điểmCattuong219120 điểm
Hanna95 điểm
tùng đơ90 điểm
Muzik 🐼85 điểm
Bài viết mới nhất Lớp 8
-
3 năm trước5458
-
3 năm trước5143
-
3 năm trước4172
-
3 năm trước4038
-
3 năm trước3958
Gửi báo cáo thành công!
