Question

Answer 1

Câu 1: B

Answer 2

Câu 3: 

uses crt;

var a:array[1..4]of integer;

i:integer;

begin

for i:=1 to 4 do 

 begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 4 do 

  write(a[i]:4);

readln;

end.

Answer 3

Câu 6: 

for i:=1 to 5 do write('A');