Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
207
78
program ho;
uses crt;
var a: array [1..10] of string;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
writeln('nhap ten ban thu',i ,' '); readln(a[i]);
writeln( a[i]);
end;
readln;
end.
cho xin 5* và hay nhất
Hãy giúp mọi người biết câu trả lời này thế nào?
2863
21139
program nhap_ten;
uses crt;
var ten:array[1..10] of string;
i:byte;
begin
clrscr;
for i:=1 to 10 do
begin
write('Nhap ten ban thu ',i,': '); readln(ten[i]);
end;
for i:=1 to n do writeln(ten[i]);
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
207
4719
78
cho mik xin ctlhn nha