Viết ct nhập vào mảng gồm 30 số nguyên, tìm xem số nào chia hết cho 3 trong mảng

0 bình luận về “Viết ct nhập vào mảng gồm 30 số nguyên, tìm xem số nào chia hết cho 3 trong mảng”

1. program ct;
   uses crt;

   var i:integer;

   A:array[1..30] of integer;

   begin

   clrscr;

   for i:=1 to 30 do

   begin

   write(‘nhap mang A[‘,i,’]:=);readln(A[i]);

   end;

   for i:=1 to 30 do

   if A[i] mod 3=0 then writeln(A[i],’ chi het cho 3′) else writeln(A[i],’ khong chi het cho 3′);

   readln

   end.

   Bình luận

2. program ct;

   uses crt;

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

         i:integer;

   begin clrscr;

      for i:=1 to 30 do

        begin

           write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

      writeln(‘So chia het cho 3 la: ‘);

      for i:=1 to 30 do

        if A[i] mod 3=0 then write(A[i]:3);

   readln;

   end.

   Học tốt

   Bình luận