Đối với Python:

a) và b):

print("Nhập dãy số nguyên:")
ds=[int(i) for i in input().split()]
T=0
for i in range (0,len(ds)):
    if ds[i]%2!=0:
        T=T+1
print("Trong dăy có",T,"số lẻ.")

c) 

print("Nhập dãy số nguyên:")
ds=[int(i) for i in input().split()]
S=0
P=1
for i in range (0,len(ds)):
    if ds[i]%3==0:
        S=S+ds[i]
print("Tổng các số chia hết cho 3 là",S)
for i in range (0,len(ds)):
    if ds[i]%3==0:
        P=P*ds[i]
print("Tích các số chia hết cho 3 là",P)

d)

print("Nhập dãy số nguyên:")
ds=[int(i) for i in input().split()]
ds.sort()
n=len(ds)
print(ds[n-1])

e)

print("Nhập dăy số nguyên:")
ds=[int(i) for i in input().split()]
for i in range (0,len(ds)):
    if ds[i]%6==0:
        print(ds[i])

'''python

a. DTB = []

siso = int(input("Nhập số lượng học sinh trong lớp: "))

b. for i in range(siso):

diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))

DTB.append(diem)

c. tong=sum(DTB)

d. print(f"Tổng điểm của lớp là: {tong}")'''

b. 

```python

for i in range(30):

DTB[i] = float(input(f"Nhập điểm của học sinh thứ

{i+1}: "))

c. 

```python max_DTB = DTB[0] for i in range(1,

30): if DTB[i]> max_DTB: max_DTB = DTB[i] là:",

max_DTB)

print("Điểm cao nhất trong mảng DTB

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

Program HOC24;

var i,n: integer;

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

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do if nt(a[i]) then write(a[i],' ');

readln

end.

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap n '); readln(n);

t:=1;

for i:=1 to n do t:=t*2;

write('2^,n,' = ',t);

readln

end.

program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.  

đitf

c++: