Viết phương trình -Nhập một số dãy số nguyên có N phân tử. -Xuất ra màn hình dãy số vừa nhập. -Tính tích các phần tử chia hết cho 5 trong dãy trên và

0 bình luận về “Viết phương trình -Nhập một số dãy số nguyên có N phân tử. -Xuất ra màn hình dãy số vừa nhập. -Tính tích các phần tử chia hết cho 5 trong dãy trên và”

1. Program Hotboy;

   Uses crt;

   Var i,n:integer;

   S:longint;

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

   Begin

   clrscr;

   S:=0;

    Write(‘nhap n nguyen duong tu ban phim ‘);

    Readln(n);

    For i:=1 to n do

   Begin

       Write(‘ A[‘,i,’]’);readln(A[i]);

   End;

   For i:=1 to n do

   If (A[i] mod 5=0) then

   S:=S*A[i];

   Write(‘ Tich cac so chia het cho 5 la ‘,S);

   Readln

   End.

   Bình luận

2. #include <iostream>
   using namespace std;
   int main(){
       int n,tt=1;
       cin>>n;
       int arr[n];
       for(int i=0;i<n;i++){
           cin>>arr[i];
       }
       for(int i=0;i<n;i++){
           cout<<arr[i]<<” “;
           if(arr[i]%5==0){
               tt*=arr[i];
           }
       }
       cout<<“\nTich cac phan tu chia het cho 5 la: “<<tt;
       //samon247
       return 0;
   }

   Bình luận