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à xuất kết quả ra nàm hình.

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.

#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;
}