Cho 1 dãy gồm N số nguyên a1, a2,- an. Tính và thông báo tích của các số là bội của 5.

0 bình luận về “Cho 1 dãy gồm N số nguyên a1, a2,- an. Tính và thông báo tích của các số là bội của 5.”

1. program tinhtchboi5;

   uses crt;

   var i,n : integer;

   s:real;

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

   begin

   clrscr;

   s:=0;

   writeln(‘nhap so phan tu cua day so’,n); readln(n);

   for i:= 1 to n do

   begin

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

   end;

   if (a[i] mod 5) then

   s:=S*a[i];

   else then

   write(‘day khong phai boi so cua 5’);

   writeln(‘tich cua cac so la boi so cua 5 la’,s);

   readln

   end.

   Bình luận