uses crt;
var i,n,max,d,s: integer;
a : array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 2=0 then s:=s+a[i];
 d:=d+a[i];
end;max:=a[1];
write('mang la:');
for i:=1 to n do write(a[i]:3);
for i:=1 to n do
 if max<a[i] then max:=a[i];
writeln;
writeln('ptu lon nhat la:',max);
write('cac so chan la:');
for i:=1 to n do if a[i] mod 2=0 then write(a[i]:3);
writeln;
write('cac so le la:');
for i:=1 to n do if a[i] mod 2 <>0 then write(a[i]:3);
writeln;
writeln('tong cua mang A la:',d);
writeln('tong cac so chan co trong mang la:',s);
readln;
end.

(mong dc 5*+hay nhất)

Python:

n = int(input("Nhập số phần tử có trong mảng A: "))
A = []
count = 0
for i in range(1, n + 1):
      A.append(int(input("A[" + str(count) + "]: ")))
      count += 1 
print("Mảng A: ", A)
print("Giá trị lớn nhất của mảng A là: ", max(A))
for i in A:
      if i % 2 != 0:
          print("Các số lẻ của mảng A là: ", i, end = " ")
tong = 0
for i in A:
      if i % 2 == 0:
          print("Các số chẵn của mảng A là: ", i, end = " ")
          tong += i
print("Tổng mảng A là: ", sum(A))
print("Tổng các có trong mảng A là: ", tong)