Nhập mảng 30 phần tử nhận lần lượt giá trị nguyên viết và in ra màn hình số lượng phần tử không chia hết cho 5 Giúp em với:(( em đang cần gấp ạ

0 bình luận về “Nhập mảng 30 phần tử nhận lần lượt giá trị nguyên viết và in ra màn hình số lượng phần tử không chia hết cho 5 Giúp em với:(( em đang cần gấp ạ”

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

         d, i: byte;

   Begin

       for i:=1 to 30 do

          Begin

            Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

            If (a[i] mod 5<>0) then inc(d);

          End;

       Writeln(‘co ‘, d, ‘ phan tu thoa man’);

       For i:=1 to n do if (a[i] mod 5<>0)

            then write(a[i], ‘ ‘);

       Readln

   end.

   Bình luận

2. program Mang;
   uses crt;
   var   a: array[1..10000] of integer;
         n,i,dem: integer;
   begin
          clrscr;
         
          write(‘Nhap n= ‘);readln(n);
         
          for i:=1 to n do
         
               begin
              
                   write(‘a[‘,i,‘]: ‘);readln(a[i]);
                  
                   If a[i] mod 5 <> 0 then dem:=dem+1;
                  
               end;
              
           write(‘SL pt ko chia het cho 5 la: ‘,dem);       
                 
     readln;
   end.

   Bình luận