Giúp em với ạ: Viết chương trình nhập vào dãy A có N số nguyên. Đưa ra màn hình các chỉ số có phần tử chia hết cho 3 và cho 5.

0 bình luận về “Giúp em với ạ: Viết chương trình nhập vào dãy A có N số nguyên. Đưa ra màn hình các chỉ số có phần tử chia hết cho 3 và cho 5.”

1. program az;

   uses Crt;

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

         i,n : integer;

   begin

   clrscr;

     Write(‘So phan tu cua mang : ‘); readln(n);

   For i:=1 to n do

     begin

           Write(‘ nhap phan tu thu a[‘,i,’] la : ‘); readln(a[i]);

     end;

   Write(‘Cac phan tu chia het cho 3 : ‘);

   For i:=1 to n do If (a[i] mod 3 = 0) then Write(a[i],’,’);

   Writeln;

   Write(‘Cac phan tu chia het cho 5 :’);

   For i:=1 to n do If (a[i] mod 5 = 0) then Write(a[i],’,’);

   readln

   end.

   Bình luận