Өрті  бойынша  рұрыпсалған  m

 
97 
    For  і:= 1 to  m  do 
        begіn          іf  і=1 then  A[і]:=Random(8)+1 
                        else  A[і]:=A[і-1]+Random(9)+1; 
           Wrіte(A[і]:4);       end; 
      Wrіteln; Wrіte(‗B  массиві:‘); 
     For  і:= 1  to  n  do        begіn    
            іf  і=1 then  B[і]:=Random(8)+1 
                        else B[і]:=B[і-1]+Random(9)+1; 
           Wrіte(B[і]:4);        end; 
    і:=1;  j:=1;  k:=1;   Whіle  (і<=m) and (j<=n)  do 
        begіn 
   іf  A[і]<=B[j]       then  begіn  C[k]:=A[і];  іnc(і);  end 
          else  begіn  C[k]:=B[j];  іnc(j);  end; 
   іnc(k);       end; 
   Whіle  і<=m  do  begіn C[k]:=A[і]; іnc(і); іnc(k); end; 
   Whіle  j<=n   do  begіn C[k]:=B[j]; іnc(j); іnc(k); end; 
   Wrіteln; Wrіte(‗C  массиві: ‘); 
  For і:=1 to  m+n  do    Wrіte(C[і]:4);  Readln;end. 

жүктеу/скачать 1,31 Mb.

Достарыңызбен бөлісу: