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

(mong dc 5*+hay nhất)

uses crt;
var n,i,d,max,k: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        if a[i] mod 2=0 then d:=d+1;
    end;
    write('Mang b la: ');
    for i:=1 to n do write(a[i],' ');
    writeln;
    write('Co ',d,' phan tu chan, do la: ');
    for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
    writeln;
    max:=a[1]; k:=1;
    for i:=2 to n do if max<a[i] then begin
        max:=a[i];
        k:=i;
    end;
    write('Vi tri ',k,' chua MAX=',max);
    readln
end.