Cho mảng A gồm 10 phần tử thuộc kiểu nguyên . Viết hàm đến số lượng số nguyên dương chia hết cho 7 của mảng A Giúp vs ạ

0 bình luận về “Cho mảng A gồm 10 phần tử thuộc kiểu nguyên . Viết hàm đến số lượng số nguyên dương chia hết cho 7 của mảng A Giúp vs ạ”

1. uses crt;
   var i,d:integer;
   begin
       clrscr;
       d:=0;
       for i:=1 to 10 do if (i>0)and(i mod 7=0) then d:=d+1;
       write(‘Co ‘,d,’ phan tu chia het cho 7′);
       readln;
   end.

   Bình luận