program Mang_tong_hop;
uses crt;
var A:array [1..500] of integer;
n,i,max,min,T: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i']='); readln(A[i]);
end;
max:=1; min:=1;
write('a) Mang vua nhap: ');
for i:=1 to n do
begin
write(A[i],' ');
if max<A[i] then max:=A[i];
if min>A[i] then min:=A[i];
T:=T+A[i];
end;
writeln;
writeln('b) Phan tu lon nhat: ',max);
writeln(' Phan tu nhp nhat: ',min);
writeln('c) Tong cac phan tu trong mang = ',T);
write('d) Cac phan tu chia het cho 3: ');
for i:=1 to n do
if A[i] mod 3=0 then write(A[i],' ');
writeln;
write('e) Cac phan tu chia het cho 2 va 5: ');
for i:=1 to n do
if (A[i] mod 2=0) and (A[i] mod 5=0) then write(A[i],' ');
readln
End.
