Program VD;
Var a: array [1..350] of integer;
Var  N,i,T,Max,M : integer;
Begin 
Wite (' Nhap so luong phan tu cua day');
Readln (N);
For i:= 1 to N do
begin 
Writeln (' Nhap so thu' ,i);
Readln (a[i]);
end;
T:= 0;
For i:= 1 to N do T:= T + a[i];
Writeln (' Tong cac phan tu cua day so vua nhap la:', T);
Max: = a[1];
For i:= 1 to N do
begin 
If (a[i] > Max) then Max: = a[i];
end;
Writeln (' So lon nhat trong day la:', Max);
Write (' Cac so chia het cho 3 trong day la:' );
M:= 0;
For i:= 1 to N do
begin
if ((a[i] mod 3)=0) then 
begin 
write (a[i]);
M:= M+ a[i];
end;
end;
Writeln;
Write (' Tong cac so chia het cho 3 trong day la:', M);
Readln; 
End.