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)

Question

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)

diemchau · Answer

Bạn xem trong h&igrave;nh

hauyen · Answer

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.

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)