Question

viết câu lệnh nhập giá trị biến mảng gồm 20 phân tử và in ra màn hình mảng gồm 20 phân tử đó?

Answer 1

program b1;
uses crt;
var i,n: integer; a:array[1..20] of integer; 
begin
clrscr;
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu la:');
for i:=1 to 20 do
write(a[i], ' ');
readln;
end.
Tham khảo!