CÂU 1:
program leMax;
var a, leMax: Integer;
kt, i, n: byte;
begin
write('n = '); readln(n);
kt:=0; leMax:=1;
for i:=1 to n do
begin
write('nhap so thu ',i , ': ');
readln(a);
if (a>leMax) and (a mod 2 = 1)
then
begin
leMax:=a;
kt:=1;
end;
end;
if kt=0 then write(kt)
else write('so le lon nhat: ', leMax);
readln;
end.
CÂU 2:
program amMax;
var a,amMax: integer;
kt, i, n: byte;
begin
write('n = '); readln(n);
kt:=0;
for i:=1 to n do
begin
write('nhap so thu ', i, ': ');
readln(a);
if (a<0) and (kt=0) then
begin
kt:=1;
amMax:=a;
end
else if (a<0) and (a>amMax)
then amMax:=a;
end;
if kt=0 then write(kt)
else write('so am lon nhat: ', amMax);
readln
end.
{GM Kiet}
