codeturbopascal Admin
Tổng số bài gửi : 22 Danh vọng : 64 Được thank : 7 Ngày Tham gia : 19/04/2013 Tuổi : 27 Đến từ : Quảng trị Thú Cưng :
| Tiêu đề: iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Sun Apr 21, 2013 2:11 pm | |
| - Code:
-
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. | |
|
tungduong08 Mod
Tổng số bài gửi : 4 Danh vọng : 8 Được thank : 4 Ngày Tham gia : 19/04/2013 Tuổi : 25 Đến từ : Quảng Trị Thú Cưng :
| Tiêu đề: Re: iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Sun Apr 21, 2013 7:04 pm | |
| Thanks | |
|