Cho mảng A 10 phần tử số nguyên viết chương trình tạo mảng B gồm các phần tử chia hết cho 3 và 5 trong mảng A Mọi người giúp mình với :<

0 bình luận về “Cho mảng A 10 phần tử số nguyên viết chương trình tạo mảng B gồm các phần tử chia hết cho 3 và 5 trong mảng A Mọi người giúp mình với :<”

1. program ptuchiahet;

   uses crt;

   var A,B:array[1..10] of integer;

         i,d:byte;

   begin

   clrscr;

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG A:’);

   d:=0;

   for i:=1 to 10 do

    begin

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

     readln(A[i];

     if A[i] mod 15=0 then

      begin

       inc(d);

       B[d]:=A[i];

      end;

    end;

   write(‘Mang A la: ‘);

   for i:=1 to 10 do

    write(A[i],’ ‘);

   writeln;

   writeln(‘Mang B tao thanh la: ‘);

   for i:=1 to d do

    write(B[i],’ ‘);

   readln

   end.

    

     

   Bình luận