Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thảo Nhi
Nhập vào 1 mảng gồm n phần tử đếm các số là bội của 3
Minh Lệ
13 tháng 3 2021 lúc 12:50

Program HOC24;

var i,n: integer;

a: array[1..32000] of integer;

d: integer;

begin

write('Nhap n: '); readln(n);

d:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

if a[i] mod 3=0 then d:=d+1;

end;

write('Co ',d,' phan tu la boi cua 3');

readln

end.

Nguyễn Lê Phước Thịnh
13 tháng 3 2021 lúc 19:50

uses crt;

var i,n,dem:integer;

a:array[1..100] of integer;

begin

clrscr;

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

  if a[i] mod 3=0 then inc(dem);

writeln(dem);

readln;

end.


Các câu hỏi tương tự
Huy Hoàng Phạm
Xem chi tiết
Vương Tâm
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
ngomanhcuong
Xem chi tiết
Phạm Năng Sơn
Xem chi tiết
ly0505
Xem chi tiết
namok123
Xem chi tiết