Đăng nhập để hỏi chi tiết
0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
34
15
var a:array[1..100] of longint;
n,i:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);readln;
for i:=1 to n do write(a[i],' ');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do Read(A[i]);
For i:=1 to n do Write(A[i],' ');
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin