cho mot mang so nguyen N, sau do loai bo mang cac phan tu bang x.[r]
(1)BµI TËP VÒ M¶NG NGµY 26-01-2010 {b1 cho mot mang so nguyen N, sau loai bo mang cac phan tu bang x In day mang hinh} Program b1; Var i,j,n,x:longint; a:array[1 100] of longint; Begin Write('Ban muon nhap vao bao nhieu so: '); Readln(n); For i:=1 to n Begin Write('A[',i,']= '); Readln(a[i]); end; Write('X= '); Readln(x); For i:=1 to n IF a[i]=x then Begin For j:=i to n a[j]:=a[j+1]; dec(n); dec(i); End; Writeln('Mang sau xoa:'); For i:=1 to n Write(a[i]:5); Readln; End (2)