Question

Viết chương trình nhập vào 1 mảng gồm n số tự nhiên in ra màn hình tương ứng n số tự nhiên vừa nhập

Answer 1

Var array:[1..1000] of integer;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac so vua nhap la ');

For i:=1 to n do write(a[i]:8);

Readln

End.