uses crt; var a,b: array[1..100] of integer; c: array[1..200] of integer; i,n,k,h: integer; begin clrscr; write ('nhap n: '); readln (n); for i:=1 to n do begin {clrscr;} write ('nhap a[',i,']: '); readln (a[i]); write ('nhap b[',i,']: '); readln (b[i]); end; for i:=1 to n*2 do begin if i mod 2<>0 then begin inc(k); c[i]:=a[k]; end else begin inc(h); c[i]:=b[h]; end; end; write ('day c la: '); for i:=1 to n*2 do write (c[i]:3); readln; end.
program Hello; uses crt; var a,b:array[1..100000] of longint; i,n:longint; begin readln(n); writeln('Nhap mang A: '); for i:= 1 to n do read(a[i]); writeln('Nhap mang B: '); for i:= 1 to n do read(b[i]); writeln('Mang C: '); for i:= 1 to n do write(a[i], ' ', b[i], ' '); readln; readln; end.
