Question

viết ct nhập số k trong n số vừa nhập và in ra n-1 so còn lại

Answer 1

Program helpyou;
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 vi tri cua 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.