a) Viết thủ tục nhập giá trị cho mảng A từ bàn phím

procedure nhap(var A:kmang; var n:integer);

begin

    write(‘Nhap so phan tu cua mang N=’);

    readln(n);

    for i:=1 to n do

        begin

              write(‘Nhap phan tu thu A[‘,i,’]=’);

              readln(A[i]);

        end;

end;

b)  Viết thủ tục in ra màn hình các phần tử âm trong mảng A.

procedure hienam(A:kmang;n:byte);

begin

     for i := 1 to n do

     if A[i] < 0 then write(A[i],’  ’);

end;