Đáp án: Vì đề của bạn chưa rõ A là biến hay là biến mảng nên mình sẽ làm cả hai trường hợp nha. Trong bài có những chỗ mình chừa dấu cách là để cho bạn dễ nhìn thôi, nên khi làm bài bạn bỏ dấu cách đi nha.
Giải thích các bước giải:
* TH1: A là biến thường.
Var A: integer;
Begin
Writeln ('A = ');
Readln (A);
Readln
End.
TH2: A là biến mảng.
Var A: array [1..100] of integer;
i,n: integer;
Begin
Writeln ('Nhap n ');
Readln(n);
For i:=1 to n do
begin
Writeln (' A[ ',i, ']= ');
Readln (A[i]);
end;
Readln
End.
CHÚC BẠN HỌC TỐT
