Viết chương trình tạo mảng B gồm m số nguyên ( m bé hơn hoặc bằng 30, m được nhập từ bàn phím. Đưa ra màn hình tích các số nguyên là bội của 3 và liệt

0 bình luận về “Viết chương trình tạo mảng B gồm m số nguyên ( m bé hơn hoặc bằng 30, m được nhập từ bàn phím. Đưa ra màn hình tích các số nguyên là bội của 3 và liệt”

1. program Min;
   uses crt;
   var B:array[1..30] of integer;
       m,i,tich:integer;
   begin
      clrscr;
      tich:=1;
      repeat
      begin
         write(‘Nhap m: ‘);
         readln(m);
      end;
      until m<=30;
      for i:=1 to m do
      begin
         write(‘Nhap so hang thu ‘,i,’ : ‘);
         readln(B[i]);
      end;
      writeln;
      writeln(‘Cac so con lai trong mang la: ‘);
      for i:=1 to m do
         if B[i] mod 3 = 0 then tich:=tich*B[i] else write(B[i]:4);
      writeln;
      writeln(‘Tich cac so nguyen la boi cua 3: ‘,tich);
      readln
   end.
         

   Bạn tham khảo nha 😀

   Bình luận