Câu 19: D

Câu 20: C. 'H'<>'h'

Câu 21: B

Câu 22: Cả 4 đều sai. Bỏ dấu cách ở đằng sau chữ of, ta được câu B đúng

Câu 23: B. Chỉ có 1 kết quả trong vòng lặp i = k là 4. 4+1 = 5

Câu 24: Tìm giá trị min, max của 1 dãy số. Chú ý dãy số này mang chỉ số to nhất là 1, kế đến là 0, rồi đến các số âm.

d1 lưu giá trị nhỏ nhất, d2 lưu giá trị lớn nhất

Câu 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('Day khong phai la chuoi doi xung. ');
        lcdx:=false;
    end
    else
    begin
        for i:=length(str2) downto 1 do
        begin
            if (str1[length(str1)-i+1]<>str2[i]) then 
            begin
                writeln('Day khong phai la chuoi doi xung. ');
                lcdx:=false;
                break;
            end;
        end;
    end;
    
    if (lcdx) then writeln('Day la chuoi doi xung. ');
    readln
end.

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.