Viết chương trình ghi lên tệp dữ liệu.txt 2 dòng Dòng thứ nhất ghi số n Dòng thứ hai ghi n số nguyên
2 câu trả lời
program bai_giai;
uses crt;
var f:text;
A:array[1..10000] of integer;
n,j:longint;
begin
clrscr;
Assign(f,'DULIEU.txt'); rewrite(f);
readln(n);
for i:=1 to n do read(A[i]);
writeln(f,n);
for i:=1 to n do write(f,A[i],' ');
close(f);
end.
Câu hỏi trong lớp
Xem thêm
