ĐỀ 1:
program ct;
uses crt;
var i,S,n,Max:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:='); readln(A[i]);
end;
for i:=1 to n do
if A[i] mod 2=1 then writeln('so le la:',A[i]);
S:=0; i:=0;
while i>n do
begin
i:=i+1;
if A[i] mod 2=1 then S:=S+A[i];
end;
writeln('tong la:',S);
Max:=A[1];
for i:=2 to n do
if Max<A[i] then Max:=A[i];
writeln('gia tri lon nhat la:',Max);
writeln('vi tri la:');
for i:=1 to n do
if A[i]= Max then write(i,' ');
readln
end.
ĐỀ 2:
program ct;
uses crt;
var i,S,n,Max:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:='); readln(A[i]);
end;
for i:=1 to n do
if A[i] mod 2=0then writeln('so chan la:',A[i]);
S:=0; i:=0;
while i>n do
begin
i:=i+1;
if A[i] mod 2=0then S:=S+A[i];
end;
writeln('tong la:',S);
Max:=A[1];
for i:=2 to n do
if Max<A[i] then Max:=A[i];
writeln('gia tri lon nhat la:',Max);
writeln('vi tri la:');
for i:=1 to n do
if A[i]= Max then write(i,' ');
readln
end.
