Viết chương trình a) nhập từ bàn phím các số nguyên cho mảng A gồm 10 phần tử b) đếm trong mảng A có bao nhiêu số chia hết cho 5

0 bình luận về “Viết chương trình a) nhập từ bàn phím các số nguyên cho mảng A gồm 10 phần tử b) đếm trong mảng A có bao nhiêu số chia hết cho 5”

1. var i,d:byte;

        a: array [1..10] of integer;

   begin

   for i:=1 to 10 do

   begin

   write(‘Nhap phan tu thu ‘,i,’ : ‘); read(a[i]);

   if a[i] mod 5 =0 then inc(d);

   end;

   write(‘So phan tu chia het cho 5: ‘,d);

   readln

   end.

   Bình luận

2. uses crt;

   var a:array[1..10] of integer;i,d:integer;

   begin

   clrscr;

   for i:=1 to 10 do readln(a[i]);

   d:=0;

   for i:=1 to 10 do if a[i] mod 5=0 then d:=d+1;

   wrrite(d);

   readln

   end.

   Bình luận