Câu 3: Viết chương trình nhập mảng 5 phần tử số nguyên và in ra màn hình 5 số nguyên đó?
2 câu trả lời
Program Hotboy;
Uses crt;
Var a:array[1..5] of integer;
i:real;
Begin
For i:=1 to 5 do
Write('A[',i,']');
Readln(A[i]);
Readln
End.
var a: array [1..5] of longint;
i:byte;
begin
for i:=1 to 5 do
begin
write('Nhap phan tu thu ',i,' : '); read(a[i]);
end;
writeln;
writeln('Mang vua nhap la: ');
for i:=1 to 5 do write(a[i],' ');
readln
end.
