uses crt;
var i,s,n,max: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];
end;
write('cac so vua nhap la:');
for i:=1 to n do write(a[i]:3);
writeln;
max:=a[1];
for i:=1 to n do
 if max<a[i] then max:=a[i];
writeln('gia tri lon nhat la:',max);
writeln('tong cac ptu chan la:',s);
readln;
end.

(mong dc 5*+hay nhất)

uses crt;
var n,i,s,max: integer;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap do dai: '); readln(n);
    for i:=1 to n do begin
        write('Phan tu thu',i,': '); readln(a[i]);
        if a[i] mod 2=0 then s:=s+a[i];
    end;
    max:=a[1];
    write('Mang vua nhap: ');
    for i:=1 to n do write(A[i],' ');
    writeln;
    write('Cac so le tron mang: ');
    for i:=1 to n do if a[i] mod 2<>0 then write(a[i],' ');
    writeln;
    writeln('Tong chan vua nhap: ',s);
    for i:=2 to n do if max<a[i] then max:=a[i];
    writeln('So lon nhat la: ',max);
    readln
end.