Lập trình giúp mình bài cô giao mà mình không biết phải làm sao?

[tinhyuocvong]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Đề như thế này:
Viết chương trình nhập màng gồm các phần tử thuộc kiểu số nguyên, nhập k kiểu số nguyên, đến các phần tử chia hết cho k trong mảng. Xuất ra kết quả màn hình?
mai cô mình nói nộp dù không có tiết cô gì kì ghê luôn

 

[tinhyuocvong]

có ai không giúp mình với mai mình phải nộp rồi !

 

[mikelhpdatke]

Var n,i,k,dem:integer;
    A:array[1..100] Of Imteger;
   

Begin
dem:=0;
 Write('Nhap n=');Readln(n);
For i:=1 to n do readln(A[I]);
Write('Nhap k=');Readln(k);

For i:=1 to n do
  If A[I] mod k=0 then inc(dem);

Writeln('KQ: ',dem);
Readln
end.

 

[tinhyuocvong]

cái inc là gì vậy lớp trưởng mình không biết hay là mình chưa học gì ấy !

 

[mikelhpdatke]

inc(dem);

Tương đương với

dem:=dem+1;

\.......................................................

 

[tinhyuocvong]

à biết rồi, cảm ơn bạn nhiều! lần sau chỉ mình thêm nha!