Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Yến Nhi

Viết chương trình nhập vào mảng A gồm N số nguyên (N<=100). Nhập vào một số nguyên k từ bàn phím. Xuất ra màn hình những phần tử của mảng là bội số của k.

giúp e với a 

Nguyễn Lê Phước Thịnh
20 tháng 4 2021 lúc 22:22

uses crt;

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

i,n,k: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);

for i:=1 to n do 

  if a[i] mod k=0 then write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
nông thị ngân
Xem chi tiết
Linh Chi
Xem chi tiết
Ken Kaneki
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Ngoc Huyen
Xem chi tiết
Nguyen Nhi
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Huynhnhu
Xem chi tiết
Benny
Xem chi tiết