Viết chương trình nhập từ bàn phím mảng A gồm N phần tử (N <=100). Các phần tử của mảng thuộc kiểu số nguyên 1. Xuất ra màn hình các phần tử của mảng A 2. Tìm phần tử lớn nhất/nhỏ nhất của mảng A 3. Đếm số lượng các phần tử âm/dương trong mảng A 4. Tính tổng các phần tử chẵn/lẻ trong mảng A

uses crt;

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

i,n,j,kt,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Mang A ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do

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

if kt=0 then t:=t+a[i];

end;

writeln('Tong cac so nguyen to co trong mang la: ',t);

readln;

end

XIN HAY NHẤT

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

n = int(input())
a = list(map(int,input().split()))
print(*a)
print(f"{max(a)}\n{min(a)}",sep='')
print(sum(1 for i in a if i<0))
print(sum(1 for i in a if i>0))
print(sum(i for i in a if i%2==0))
print(sum(i for i in a if i%2!=0))