Tạo mảng a gồm n số nguyên , đếm có bai nhiêu số chia hết cho 6 trong dãy dố nguyên đó

0 bình luận về “Tạo mảng a gồm n số nguyên , đếm có bai nhiêu số chia hết cho 6 trong dãy dố nguyên đó”

1. program Tin_hoc;

   uses crt;

   var i,n,k:integer;

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

   begin

   clrscr;

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

   writeln(‘Nhap ‘,n,’ so nguyen:’);

   k:=0;

   for i:= 1 to n do

     begin

     write(‘a[‘,i,’] = ‘);

     readln(a[i]);

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

     end;

   writeln(‘Mang a co ‘,k,’ so nguyen chia het cho 6′);

   readln;

   end.

   Bình luận

2. uses crt;

   var A:array [1..1000] of integer;

   n,i,dem:integer;

   begin

   writeln (‘nhap vao so phan tu cua mang’);readln (n);

   for i:=1 to n do readln (A[i]);

   write (‘cac so chia het cho 6 la: ‘);

   for i:=1 to n do if A[i] mod 6 =0 then 

   dem:=dem+1;

   writeln (‘co tat ca ‘,dem,’ so chia het cho 6′);

   readln

   end.

   Bình luận