var
n,i,q,k,p,:integer;
a,b:array [1..1000] of integer;
begin
write('n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
write('-Chen pt va vi tri cua pt do: ');readln(k,p);
q:=0;
for i:=1 to n do
begin
inc(q);
if q=p then begin
b[q]:=k;
inc(q);
end;
b[q]:=a[i];
end;
writeln('-Mang sau khi chen la: ');
for i:=1 to q do
write(b[i],' ');
readln
end.
n,i,q,k,p,:integer;
a,b:array [1..1000] of integer;
begin
write('n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
write('-Chen pt va vi tri cua pt do: ');readln(k,p);
q:=0;
for i:=1 to n do
begin
inc(q);
if q=p then begin
b[q]:=k;
inc(q);
end;
b[q]:=a[i];
end;
writeln('-Mang sau khi chen la: ');
for i:=1 to q do
write(b[i],' ');
readln
end.

Cheap jordans, wholesale jordan shoes, nike free, cheap nike shoes, cheap jordan, cheap jordans, wholesale jordan shoes for sale, ugg, ugg australia, air jordan shoes, Bags Louis Vuitton, Cheap LV Handbags, Discount LV Handbags, cheap jordan shoes, Cheap Nike jordan shoes, cheap nike jordan shoes, uggs outlet, cheap nike free, discount nike jordans, jordan shoes for cheap, wholesale jordan shoes, ugg soldes, cheap nike free run, cheap jordans, Cheap Louis Vuitton Handbags, ugg pas cher, ugg boots, cheap nike air max, Discount Louis Vuitton, uggs on sale
15:19 21 tháng 11, 2014
Các cao thủ ơi giúp e bài này với ạ. Nhập vào 4 số a=1, b=3, c=5, d=9 dùng vòng lặp in ra dãy bằng nhau 4 4 4 4
Các cao thủ giúp e với, e mới vọc nên trình độ còn kém lắm, e xin chân thành cảm ơn
23:00 5 tháng 4, 2016
ĐÚNG roi, hay wa nhung HƠI KHÓ HIỂU, nho nguoi giai GIẢI THÍCH RÕ HƠN cái !!!
20:15 8 tháng 5, 2016
Đăng nhận xét