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ị lớn nhất, d2 lưu giá trị nhỏ 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.
    

Câu 24:

d1: lưu trữ giá trị lớn nhất của dãy số.

d2: lưu trữ giá trị nhỏ nhất của dãy số.

Câu 25:

uses crt;
var s1,s2:string; i,kt:integer;
begin
clrscr;
   write('Nhap sau s1: ');readln(s1);
   write('Nhap sau s2: ');readln(s2);
   for i:=1 to length(s2) do
      if s2[i]<>s1[length(s2)-i+1] then kt:=1;
   if (length(s1)=length(s2))and(kt=0) then writeln('s2 la xau dao nguoc cua xau s1') else
   writeln('s2 khong la xau dao nguoc cua xau s1');
readln
end.