Pascal nhập vào 1 dãy số nguyên và in ra mỗi số trên 1 hàng

Đề bài Pascal nhập vào 1 dãy số nguyên và in ra mỗi số trên 1 hàng

>> Pascal : Bài tập mảng 1 chiều hot nhất nên xem

Cài đặt

Prgram Nhap_Va_Xuat_Mang;
Uses crt;
Var A: array[1..100] of integr;
i, k,demd, s, demnt, tg,n, d, dd,j  : integer;
tb, tbm: real;
Begin
    Clrscr;
    Writeln(‘nhap so luong phan tu cua mang’); readln(n);
    Writeln(‘----------------------nhap mang--------------------------------------‘);
    For i:=1 to n do
        Begin
            Writeln(‘nhap so hang thu’, I, ‘A[‘,I,’]= ‘);
            Readln(A[i]);
        End;
    {-------------------In mang va cac phan tu xuong dong, nho ham writeln------------------}
    For i:=1 to n do
        Writeln(‘Cac phan tu da nhap’, A[i]);    
End.