viết chương trình nhập 10 bất kì từ 0->255 vào tệp D:\baitap.TXT.Đọc và ghi vào các giá trị của tệp đó (chưa biết số lượng số đã nhập)
2 câu trả lời
program baigiai;
Uses crt;
var f:text;
A:array[1..10] of integer;
i:byte;
begin
clrscr;
writeln('Moi ban nhap 10 so bat ki:');
for i:=1 to 10 do
begin
write('So thu ',i,': '); readln(A[i]);
end;
Assign(f,'D:\baitap.TXT'); rewrite(f);
write(g,'10 so vua nhap la: ');
for i:=1 to 10 do
write(g,A[i],' ');
readln
end.
