Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Linh Chi
viết trương trình nhập vào từ bàn phím mảng A gồm N số nguyên và 1 số nguyên dương k:1, đếm số lượng phần tử chẵn trong mảng A và đưa kết quả ra màn hình?2, đếm số lượng phần tử là bội của k trong mảng A và đưa kết quả ra màn hình?giúp em với ạ em cầ...
Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 19:40

uses crt;

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

n,i,k,dem,dem1:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

write('Nhap k='); readln(k);

dem:=0;

dem1:=0;

for i:=1 to n do 

  begin

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

if a[i] mod k=0 then inc(dem1);

end;

writeln('So phan tu chan la: ',dem);

writeln('So phan tu chia het cho ',k,' la: ',dem1);

readln;

end.


Các câu hỏi tương tự
nông thị ngân
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Ngoc Huyen
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Nguyễn Thanh Duy
Xem chi tiết
Minh Hoạt
Xem chi tiết
Thu Hiền
Xem chi tiết
Quang Trung Lê
Xem chi tiết
Yến Nhi
Xem chi tiết