Question

Tin học 11 . Mọi người giúp mk vs ạ . Cảm ơn mọi người nhiều 💛 Bài tập: Cho dãy A gồm n số nguyên. a1,a2,a3...an.Hãy xoá đi phần tử thứ i của dãy A và đưa ra màn hình kết quả là dãy mới đã xoá một phần tử

Answer 1

uses crt;

var
n,i,q,k,p:integer;
a,b:array [1..1000] of integer;
begin

clrscr;
write('n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
write('Xoa pt co vi tri la: ');readln(p);
q:=0;
for i:=1 to n do
if q<>p then
begin
inc(q);
b[q]:=a[i];
end;
writeln('Mang sau khi xoa la: ');
for i:=1 to q do
write(b[i],' ');
readln;
end.