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 CT nhập từ bàn phím mảng 1 chiều và xóa 1 phần tử của mảng có n phần tử. Sun Apr 21, 2013 2:10 pm | |
| - Code:
-
var n,i,q,k,p:integer; a,b:array [1..100] of integer; begin write('nhap do dai cau mang ');readln(n); for i:=1 to n do begin write('a[',i,']= '); readln(a[i]); end; write('vi tr pt can xoa ');readln(p); q:=0; for i:=1 to n do if q<>p then begin inc(q); b[q]:=a[i]; end; writeln('Mang sau khi xoa la: '); for i:=1 to q do write(b[i],' '); readln end. | |
|