Bài 1: Viết chương trình nhập vào mảng n phần tử. Đếm và in ra các phần tử có giá trị là số chẵn trong mảng.
uses crt;
var n,i: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do readln(a[i]);
    write('Cac phan tu chan la: ');
    for i:=1 to n do if a[i] mod 2=0 then write(a[i]:3);
    readln
end.
Bài 2: Viết chương trình nhập vào mảng n phần tử. Tính tổng bình phương các phần tử có giá trị là số lẻ trong mảng.
uses crt;
var n,i,s: integer;
    a: array[1..100] of integer;
begin
clrscr;
    for i:=1 to n do begin
        readln(a[i]);
        if a[i] mod 2<>0 then s:=s+a[i]*a[i];
    end;
    write('Tong binh phuong=',s);
    readln
end.
Bài 3: Viết chương trình nhập vào mảng n phần tử. Tính tổng và in ra các phần tử ở vị trí chẵn.
uses crt;
var n,i,s: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        if i mod 2=0 then s:=s+a[i];
    end;
    writeln('Tong vi tri chan = ',s);
    write('Cac phan tu vi tri chan: ');
    for i:=1 to n do if i mod 2=0 then write(i:3);
    readln
end.
Bài 4: Viết chương trình nhập vào mảng n phần tử. Tìm phần tử lớn nhất và nhỏ nhất trong mảng.
uses crt;
var n,i,max,min: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do readln(a[i]);
    max:=a[1]; min:=a[1];
    for i:=2 to n do begin
        if max<a[i] then max:=a[i];
        if min>a[i] then min:=a[i];
    end;
    writeln('MAX=',max);
    writeln('MIN=',min);
    readln
end.

Python:

#Bài 1:

n = int(input("Nhập số phần tử có trong mảng: "))
lst = []
count = 0
for i in range(1, n + 1):
      lst.append(int(input("lst[" + str(count) + "]: ")))
      count += 1 
count1 = 0
for i in lst:
      if i % 2 == 0:
          count1 += 1 
          print(i, end = " ")
print("Có", count1, "phần tử có giá trị là số chẵn.")

#Bài 2:

n = int(input("Nhập số phần tử có trong mảng: "))
lst = []
count = 0
for i in range(1, n + 1):
      lst.append(int(input("lst[" + str(count) + "]: ")))
      count += 1 
tong = 0
for i in lst:
      if i % 2 != 0:
          i *= i 
          tong += i 
print("Tổng bình phương các phần tử có giá trị là số lẻ trong mảng là: ", tong)

#Bài 3:

n = int(input("Nhập số phần tử có trong mảng: "))
lst = []
count = 0
for i in range(1, n + 1):
      lst.append(int(input("lst[" + str(count) + "]: ")))
      count += 1
count1 = 0
count2 = 0
for i in lst:
      if count1 % 2 == 0:
           count2 += i 
           print(i, end = " ")
           count1 += 1 
print("Tổng các phần tử ở vị trí chẵn là: ", count2)

#Bài 4:

n = int(input("Nhập số phần tử có trong mảng: "))
lst = []
count = 0
for i in range(1, n + 1):
      lst.append(int(input("lst[" + str(count) + "]: ")))
      count += 1
print("Phần tử lớn nhất trong mảng là: ", max(lst))
print("Phần tử nhỏ nhất trong mảng là: ", min(lst))