Question

Cho mảng 1 chiều a thừa số nguyên gồm 10 phần tử đc nhập từ bàn phím viết phương trình ghi tệp 1 để ghi các phần tử của mảng a vào tệp trong Data. TXT các phần tử đc ghi trên 1 dòng mỗi phần tử cách nhau ít nhất 1 khoảng trống

Answer 1

uses crt;

const fo='data.txt'

var f1:text;

a:array[1..10]of integer;

i,n:integer;

begin

clrscr;

assign(f1,fo); rewrite(f1);

n:=10;

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(f1,a[i]:4);

close(f1);

readln;

end.