viết chương trình nhập vào số nguyên gồm n phần tử a)nhập giá trị cần xóa x ,xóa phân tử có giá trị x,xuất mảng sau khi xóa b)nhập giá trị cần thêm là

viết chương trình nhập vào số nguyên gồm n phần tử a)nhập giá trị cần xóa x ,xóa phân tử có giá trị x,xuất mảng sau khi xóa b)nhập giá trị cần thêm là y,vị trí cần thêm là k,thêm y vào mảng tại vị trí k và xuất mảng xau khi thêm

0 bình luận về “viết chương trình nhập vào số nguyên gồm n phần tử a)nhập giá trị cần xóa x ,xóa phân tử có giá trị x,xuất mảng sau khi xóa b)nhập giá trị cần thêm là”

  1. var a:array[1..200000]of longint;

           i,n,,k1,k2:longint;

    begin

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

     writeln(‘nhap lan luot so phan tu cua mang’);

    for i:=1 to n do 

     readln(a[i]);

    writeln(‘nhap so can xoa ‘);readln(k1);

    for i:=1 to n do 

     if a[i] =k1 then begin

     for k2:=i+1 to n do

      a[k2-1]:=a[k2];

     n:=n-1;

    end;

    writeln(‘mang sau khi xoa cac phan tu mang gia tri cua x’);

    for i:=1 to n do 

     write(A[I],’ ‘);

    writeln;writeln(‘nhap gia lan luot gia tri can them va vi tri them’);

    readln(k1,k2);

    for i:=k2 to n do 

     a[i+1]:=a[i];

    n:=n+1;

    a[k2]:=k1;

    writeln(‘mang sau khi chen gia tri y’);

    for i:=1 to n do

     write(a[i],’ ‘);

    readln;

    end.

    Bình luận

Viết một bình luận