program mang mot chieu; program mang mot chieu; uses crt; var A Array[1 100]of integer; i,n,t,x integer; procedure nhap; begin for i =1 to n do begin write(''''Nhap phuong trinh thu '''',i,''''=''''); readln(a[i][.]
program mang_mot_chieu; uses crt; var A:Array[1 100]of integer; i,n,t,x:integer; procedure nhap; begin for i:=1 to n begin write('Nhap phuong trinh thu ',i,'='); readln(a[i]); end; end; procedure xuat; begin for i:=1 to n end; write(a[i]:3); procedure xoa; begin write('mang xoa:'); t:=1; repeat if x=a[i] then a[t]:=a[t+1]; n:=n-1; t:=t+1; until t>n; end; begin write('Nhap n ='); readln(n); nhap; xuat; xoa; xuat; readln; end