Qui hoạt động giống như đệ qui vậy vẫn có tính dừng chương trình, vẫn có câu điều kiện phần lọc để cho chương trình chạy nhanh. Quy hoạt động chạy tốt hơn đệ quy rất nhiều bới nó nhanh hơn tiêu biểu của qui hoạt động là các bài như fibonacci nó chỉ tính thường là một lần hoặc chỉ theo số n nhập từ bàn phím nên nhanh hơn đệ quy rất nhiều lần. Qui hoạt động chạy nhanh là bơi các kết quả của nó được gắng thằng vào một mảng ta đặt ra và chỉ cần in mảng đó là in kết quá.

@danhle

var m: array[1..100] of integer;
    n,i,max,j,t,scp: integer;
begin
 clrscr;
  write ('nhap n: ');  readln (n);
  for i:=1 to n do
   begin
    write ('nhap m[',i,']: ');  readln (m[i]);
    if max<=abs(m[i]) then max:=abs(m[i]);
   end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if m[i]<m[j] then
     begin
      t:=m[i];
      m[i]:=m[j];
      m[j]:=t;
     end;
  write ('day sau khi sap xep giam dan: ');
  for i:=1 to n do write (m[i],' ');
  writeln;
  writeln ('gia tri tuyet doi lon nhat trong day: ',max);
  write ('cac so chinh phuong trong day: ');
  for i:=1 to n do
   begin
    scp:=trunc(sqrt(m[i]));
    if sqr(scp)=m[i] then
    write (m[i],' ');
   end;
 readln;
end.