Bài tập: Thêm/xóa phần tử thứ k trong mảng 1 chiều
Đã gửi: T7 16 Th4, 2022 20:23
Bài tập: Viết chương trình nhập vào dãy N (5 <= N <= 10) số nguyên, nhập thêm một số và chèn vào trước phần tử thứ k trong dãy N số vừa nhập, sau đó in ra dãy số đã cập nhật, xoá số thứ k trong dãy N số vừa nhập sau đó in ra dãy số đã cập nhật.
Ví dụ:
Mã nguồn:
Ví dụ:
Mã: Chọn tất cả
Moi ban nhap vao so N: 5
Moi ban nhap lan luot cac so: 2 4 6 8 10
Moi ban nhap vi tri cua phan tu can chen vao: 3
Moi ban nhap gia tri: 9
Day so moi la: 2 4 9 6 8 10
Moi ban nhap vi tri cua phan tu can xoa: 3
Day so moi la: 2 4 6 8 10
Mã nguồn:
Mã: Chọn tất cả
Uses Crt;
Var N, i, k : Integer;
M : Array[1..100] Of Integer;
Begin
ClrScr;
N := 0;
While ((N < 5) Or (N > 10)) Do
Begin
Write('Moi ban nhap vao so N: ');
ReadLn(N);
End;
Write('Moi ban nhap lan luot cac so: ');
For i := 1 To N Do Read(M[i]);
ReadLn;
k := 0;
While ((k < 1) Or (k > N)) Do
Begin
Write('Moi ban nhap vi tri cua phan tu can chen vao: ');
ReadLn(k);
End;
For i := N DownTo k Do M[i+1] := M[i];
Write('Moi ban nhap gia tri: ');
ReadLn(i);
M[k] := i;
Inc(N);
Write('Day so moi la: ');
For i := 1 To N Do Write(M[i], ' ');
k := 0;
While ((k < 1) Or (k > N)) Do
Begin
Write('Moi ban nhap vi tri cua phan tu can xoa: ');
ReadLn(k);
End;
For i := k+1 To N Do M[i-1] := M[i];
Dec(N);
Write('Day so moi la: ');
For i := 1 To N Do Write(M[i], ' ');
ReadLn;
End.