19. D
20. C
21. B
22. C đáp án sai, phải là var a: array [1..100] of integer; như này mới đúng
23. B
24. Chương trình tìm giá trị nhỏ nhất và lớn nhất của mảng A
d1 lưu giá trị lớn nhất
d2 lưu giá trị nhỏ nhất
25.
var str1, str2: string;
i: byte;
lcdx: boolean;
begin
write('Nhap chuoi s1: '); readln(str1);
write('Nhap chuoi s2: '); readln(str2);
lcdx:=true;
if (length(str1)<>length(str2)) then
begin
writeln('Xau ',s1,' khong phai la xau dao nguoc cua xau ',s2,' ');
lcdx:=false;
end
else
begin
for i:=length(str2) downto 1 do
begin
if (str1[length(str1)-i+1]<>str2[i]) then
begin
writeln('Xau ',s1,' khong phai la xau dao nguoc cua xau ',s2,' ');
lcdx:=false;
break;
end;
end;
end;
if lcdx=true then writeln('Xau ',s1,' la xau dao nguoc cua xau ',s2,' ');
readln
end.
