viết đoạn chương trình con thực hiện nhập giá trị cho mảng 1 chiều

uses crt;

var a:array[1..100] of integer;

i,n:byte;

function C(n:byte):integer;

begin

write(‘nhap n: ‘);readln(n);

for i:=1 to n do

begin 

write(‘gia tri’,i,’: ‘);readln(a[i]);

end;

end;

begin

clrscr;

C(n);

readln;

end.