#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x>5) dem++;

}

cout<<dem;

return 0;

}

Để giải quyết bài toán này, chúng ta có thể sử dụng vòng lặp để duyệt qua từng phần tử trong dãy số và kiểm tra xem phần tử đó có phải là số chính phương hay không. Nếu là số chính phương, ta in ra phần tử đó và cập nhật tích tích các số chính phương.

Dưới đây là code mẫu để giải quyết bài toán này:

```
#include <iostream>
#include <math.h>

using namespace std;

int main()
{
int n;
cout << "Nhap so phan tu cua day: ";
cin >> n;

int a[n]; cout &lt;&lt; &quot;Nhap cac phan tu cua day: &quot;; for (int i = 0; i &lt; n; i++) { cin &gt;&gt; a[i]; } int tich = 1; cout &lt;&lt; &quot;Cac so chinh phuong trong day la: &quot;; for (int i = 0; i &lt; n; i++) { if (sqrt(a[i]) == floor(sqrt(a[i]))) { cout &lt;&lt; a[i] &lt;&lt; &quot; &quot;; tich *= a[i]; } } cout &lt;&lt; endl &lt;&lt; &quot;Tich cac so chinh phuong la: &quot; &lt;&lt; tich; return 0;

}
```

Trong đoạn code trên, chúng ta sử dụng hàm `sqrt()` để tính căn bậc hai của mỗi phần tử trong dãy số. Nếu kết quả là một số nguyên, tức là phần tử đó là số chính phương, ta in ra và cập nhật tích.

trong dãy đó, bạn có thể sử dụng ngôn ngữ lập trình Python như sau:
```python
n = int(input("Nhập số phần tử của
dãy: "))
a = []
for i in range(n):
a.append(int(input("Nhập phần tử thứ
{}: ".format(i+1))))
print("Các số nguyên tố trong dãy
là:")
for num in a:
if num > 1:
for i in range(2, int(num/2)+1):
if (num % i) == 0:
break
else:
print(num\()\) ''' 

# Ninh OSS

1.

Program bai1;

uses crt;

var n,i: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

for i := 1 to n do

if n mod i = 0 then

write(i :2 , ' , ');

readln;

end.

2.

program bai2;

uses crt;

var i,n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

for i: 1 to n do

if i mod 2 = 0 then

write(i: 3 ,',');

readln;

end.

uses crt;

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

i,n,j:integer;

kt:boolean;

begin

clrscr;

readln(n);

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

for i:=1 to n do 

 if trunc(sqrt(a[i]))=sqrt(a[i]) then write(a[i]:4);

writeln;

for i:=1 to n do 

 if a[i]>1 then 

begin

kt:=true;

for j:=2 to trunc(sqrt(a[i])) do

  if a[i] mod j=0 then kt:=false;

if kt=true then write(a[i]:4);

end;

writeln;

readln;

end.

uses crt;

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

i,n,ln:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

ln:=0;

for i:=1 to n do

if trunc(sqrt(A[i]))=sqrt(a[i]) then 

begin

write(a[i]:4);

if ln<A[i] then ln:=A[i];

end;

writeln;

writeln('So chinh phuong lon nhat la: ',ln);

readln;

end.

```pascal
program TimSoNguyenTrongSoN;
uses crt;

procedure TimSoNguyenTrongSoN(n: integer);
var
n_str: string;
so_nguyen_xuat_hien: array of integer;
temp: string;
i, j, so: integer;
begin
n_str := IntToStr(n);
SetLength(so_nguyen_xuat_hien, 0);

for i := 1 to Length(n_str) do
begin
temp := ''
for j := i to Length(n_str) do
begin
temp := temp + n_str[j];
if TryStrToInt(temp, so) then
begin
SetLength(so_nguyen_xuat_hien, Length(so_nguyen_xuat_hien) + 1);
so_nguyen_xuat_hien[Length(so_nguyen_xuat_hien) - 1] := so;
end;
end;
end;

writeln('Cac so nguyen xuat hien trong so ', n, ' la:');
for i := 0 to Length(so_nguyen_xuat_hien) - 1 do
begin
writeln(so_nguyen_xuat_hien[i]);
end;
end;

var
n: integer;
begin
clrscr;
write('Nhap vao so n: ');
readln(n);
TimSoNguyenTrongSoN(n);
readln;
end.
```

2:

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

if (n%i==0) cout<<i<<" ";

return 0;

}