Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  7ô
Language: PASCAL
Code:
var A:array [1..10] of byte;
n,i: byte;
begin 
write ('Nhap so phan tu cua mang ');
readln(n);
for i:=1 to n do 
begin 
write ('A[',i,']= ');
readln(A[i]);
end;
writleln('Mang vua nhap la: ');
for i:=1to n do write (A[i]: 8);
readln
end.     
          
          
          
Comments: