Nhập mảng A ,N phần tử là các số nguyên. Tính tổng các phần tử sao cho phần tử đó vừa chia hết cho 3 và chia hết cho 5

0 bình luận về “Nhập mảng A ,N phần tử là các số nguyên. Tính tổng các phần tử sao cho phần tử đó vừa chia hết cho 3 và chia hết cho 5”

1. program Min;
   uses crt;
   var A:array[1..100] of integer;
       i,n,tong:integer;
   begin
      tong:=0;
      writeln(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         writeln(‘Nhap phan tu thu ‘,i);
         readln(A[i]);
      end;
      for i:=1 to n do 
      begin 
          if (A[i] mod 3 = 0) and (A[i] mod 5 =0) then tong:=tong+A[i];
      end;
      writeln(‘Tong cac phan tu chia het cho 3 va cho 5 la: ‘,tong);
      readln
   end.

   Bạn kiểm tra lại chương trình nhé, mình đã thử và cho kết quả đúng 😀

   Bình luận