Bài 1: Đếm số thỏa mãn

program duong_nho_hon_500;

uses crt;

var A:array[1..10000] of integer;

     n,i,d:integer;

begin

       clrscr;

       write('Nhap N: ');  readln(n);

       d:=0;

       for i:=1 to n do

              begin

                     write('A[',i,']= ');  readln(A[i]);

                     if (A[i]>0) and (A[i]<500) then d:=d+1;

              end;

       write('So luong phan tu thoa man la: ',d);

       readln;

end.

Bài 2: Xóa số

program xoa_so;

uses crt;

var s:string;

      i:byte;

begin

       clrscr;

       write('Nhap xau: '); readln(s);

       i:=1;

       while i<=length(s) do

              if s[i] in ['0'..'9'] then delete(s,i,1)

              else i:=i+1;

       write(s);

       readln;

end.

Câu 1: 

uses crt;
var n,i,d:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('Nhap n (n<10000) : ');readln(n); 
   for i:=1 to n Do 
      begin
         write('a[',i,']=');readln(a[i]);
         if (a[i]>0)and(a[i]<500) then inc(d);
      end;
   writeln('Co ',d,' phan tu co gia tri duong va nho hon 500');
readln
end.

Câu 2:

uses crt;
var s:string; i:byte;
begin
clrscr;
   write('Nhap S:');readln(s); 
   for i:=1 to length(s) do
      while (s[i] in ['1'..'9'])and(i<length(s)) do 
         delete(s,i,1);
   writeln('Xau s sau khi loai bo cac chu so: ',s);
readln
end.