uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);</p><p>for i:=1 to n do </p><p>  begin</p><p>write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

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

writeln(t);

readln;

end.

Câu 2:

program xau;
uses crt;
var x1,x2 : string;
begin clrscr;
writeln('Nhap xau ki tu thu nhat :'); readln(x1);
writeln('Nhap xau ki tu thu hai :'); readln(x2);
if length(x1) > length(x1) then writeln(x1) else
if length(x1) < length(x2) then writeln(x2) else
writeln(x1);
readln
end.