Viết chương trình 1 dãy số gồm n phần tử,xóa số k trong dãy n số vừa nhập. In ra màn hình dãy số sau khi xóa,với k được nhập vào từ bàn phím
1 câu trả lời
Program baitap;
Uses crt;
Var A:array[1..50] of integer;
n,i,k:integer;
Begin
Clrscr;
Write('n='); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(A[i]);
End;
Write('k='); Readln(k);
Write('Sau khi xoa: ');
For i:=1 to n do If A[i]<>k then write(A[i],' ');
Readln
End.
