Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
23
7
Program CT;
Uses crt;
Var i:integer;
A:array[1..4] of integer;
Begin
Clrscr;
For i:=1 to 4 do
Begin
Write('nhap mang A[',i,']='); readln(A[i]);
End;
Writeln('phan tu thu ba la',A[3]);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
program oken;
uses crt;
var a: array[1..4] of integer;
i: byte;
begin
clrscr;
writeln('Nhap mang A');
for i:=1 to 4 do
begin
write('A[',i,']: '); readln(a[i]);
end;
writeln('Phan tu thu 3 trong mang: ',a[3]);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin