nhập mảng rồi xóa số thứ k trong n số số vừa nhập.In ra n-1 số còn lại.

0 bình luận về “nhập mảng rồi xóa số thứ k trong n số số vừa nhập.In ra n-1 số còn lại.”

1. uses crt;

   var i,n,k:longint;

   begin

   clrscr;

   readln(n,k);

   for i:=1 to n do read(a[i]);

   for i:=1 to n do if i<>k then write(a[i],’ ‘);

   readln

   end.

   Bình luận

2. var a:array[1..1000] of longint;

   i,k,n:longint;

   begin

   write(‘nhap so phan tu cua mang ‘);readln(n);

   readln(k);

   for i:=1 to n do read(a[i]);readln;

   for i:=1 to n do

   if i<>k then write(a[i],’ ‘);

   readln

   end.

   Bình luận