2 câu trả lời
Uses crt;
Var i, n: integer;
R:array[1..1000] of integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
Begin
Write('R[',i,']=');
Readln(R[i]);
End;
Readln
End.
Câu hỏi trong lớp
Xem thêm
