Program Vidu; Uses crt; Type Mang1C = array[1..10] of Integer; {khai báo tên mảng – cách 2} Var A:Mang1C; {Đặt tên mảng là A} i:integer; Begin clrscr; Writeln('Nhap gia tri cho mang A'); For i:=1 to 10 do Begin Write('A[‘,i,’] = '); Readln(A[i]); { đọc vào giá trị cho A thứ i} End; Write('Danh sach cac phan tu trong mang A: '); For i:=1 to 10 do Write(A[i]:5); Readln; End.
