Bài 1/ Viết chương trình nhập từ bàn phím hai dãy số nguyên A,B gồm n phần tử (n nhập từ bàn phím và n nhỏ hơn hoặc bằng 30). Trộn 2 dãy số trên thành dãy số mới C theo nguyên tắc sau:
a=a1,a2,a3,..,an.
b=b1,b2b,b3,...,bn.
c=a1,b1,a2,b2,a3,b3,...,an,bn.
Vd: n=6. A=4 5 6 1 2 3. B=9 4 7 0 8 4.
>> C=4 9 5 4 6 7 1 0 2 8 3 4 .
Bài 2/ Nhập vào 1 dãy số nguyên. Cho biết dãy đã sắp xếp chưa tăng dần hay giảm dần. Nếu dãy đã sắp xép hãy cho nhập số n bất kì và chèn vào dãy sao cho dãy vẫn đảm bảo được sắp xếp (không được sắp xếp sau khi chèn thêm). Nếu dãy chưa sắp xếp thì sắp xếp lại dãy tăng dần.
Vd: Dữ liệu vào: 5 6 7 8 9; n=6.
Dữ liệu ra: dãy đã được sắp xếp tăng dần và sau khi chèn thêm n là: 5 6 6 7 8 9.
" giúp e vs 19h 29/7 e nộp r "
Bài 1:
Uses crt;
var i,n,j:integer;
a,b,c:array[1..100000] of integer;
Begin
clrscr;
readln(n);
for i:= 1 to n do readln(a[i]);
for i:= 1 to n do readln(b[i]);
j:=0;
for i:= 1 to n do
Begin
inc(j);
c[j] := a[i];
inc(j);
c[j] := b[i];
end;
for i:= 1 to j do write(c[i],' ');
readln;
end.
