Ý tưởng:

Bạn cần một chương trình thủ tục con để tách số (hoặc thực hiện chung luôn nhưng hơi phức tạp)

Sau đó duyệt hết mảng và gọi thủ tục

Chương trình:

program tach_so;

uses crt;

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

     n,i:integer;

{---Chuong-trinh-con---}

procedure tach(k:integer);

begin

       while k>0 do

              begin

                     write(k mod 10,' ');

                     k:=k div 10;

              end;

       writeln;

end.

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap so luong phan tu: ');  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       writeln('Ket qua tach so theo thu tu la:');

       for i:=1 to n do

              tach(A[i]);

       readln;

end.

Ý tưởng:

Có 2 cách:

    -Sử dung cấu mod/ div 10;

    - Đổi thành xâu rồi tách;

Cách làm:

Dùng Procedure để gọ thì sẽ tiện, ngắn gọn hơn.

C1.Sử dung cấu mod/ div 10:

uses crt;
var I,N:LONGINT; A:array[1..100000]of longint;
procedure tach(a:longint);
var s,c:string; t:byte;
begin
   s:='';
   while a<>0 do
      begin
         t:=a mod 10;
         str(t,c);
         s:=c+' '+s;
         a:=a div 10;
         t:=t div 10;
      end;
   writeln(s);
end;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   for i:=1 to n do begin write(a[i],': '); tach(A[i]); end;
readln
end.

C2. Đổi thành xâu rồi tách:

uses crt;
var I,N:LONGINT; A:array[1..100000]of longint;
procedure tach(a:longint);
var s:string; i:longint;
begin
   str(a,s);
   for i:=1 to length(S) do write(s[i],' ');
end;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   for i:=1 to n do begin write(a[i],': '); tach(A[i]); writeln;end;
readln
end.