Viết chương trình Pascal thực hiện các yêu cầu sau – khai bái biến mảng gồm 100 phần tử – nhập dữ liệu cho dãy số n phần tử ( 0 < n < 100 ) - in cá

Program chuongtrinh;

uses crt;
var a: array[1..100] of integer;
n,i,d: integer;
begin
clrscr;
d:=0;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do begin
write(‘a[‘,i,’]=’); readln(a[i]); end;
writeln(‘Cac phan tu trong mang la: ‘);
for i:=1 to n do
write(a[i],’ ‘);
readln;
end.