Nhập vào mảng một chiều,in ra tất cả dãy con thuộc mảng đã cho

0 bình luận về “Nhập vào mảng một chiều,in ra tất cả dãy con thuộc mảng đã cho”

1. uses crt;
   var i,j,k,n:longint;
       a:array[1..100] of longint;
   begin
   clrscr;
      write(‘n= ‘);readln(n);
      for i:=1 to n do read(a[i]);
      readln;
      for i:=1 to n do
         for j:=i to n do
            begin
               for k:=i to j do write(a[k],’ ‘);
               writeln;
            end;
   readln
   end. 

   Bình luận

2. uses crt;
   var i,j,x,n:longint; a:array[1..100]of longint;
   begin
   clrscr;
      write(‘Nhap so luong phan tu: ‘);readln(n);
      for i:=1 to n do 
         begin 
            write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]); 
         end;
      for i:=1 to n do 
         for j:=i to n do
            begin
               for x:=i to j do write(a[x],’ ‘); 
               writeln;
            end;  
   readln
   end.   

   Bình luận