Question

nhập dãy số gồm n số nguyên khác nhau , sau đó chèn bất kì vào vị trí thứ k cũa dãy rồi in ra dãy số đó

 

Answer 1

Program Xoa_mang;

uses crt;

var m:array[1..100] of integer;

n,i,k:byte;

begin

Write(‘So phan tu cua day: ‘);readln(n);

for i:=1 to n do

Begin

write(‘M[‘,i,’]=’);

readln(M[i]);

end;

write(‘Nhap phan tu can xoa: ‘);readln(k);

for i:=k to n-1 do m[i]:=m[i+1];

for i:=1 to n-1 do write(m[i],’  ‘);

readln

end.