1. Bài tập 1: Viết chương thực hiện các công việc sau: a. Nhập số nguyên dương n (n<=100) và mảng A gồm n số nguyên. b. Hãy ghi các phần tử của mảng A vào tệp MANG.TXT sao cho mỗi số nằm trên một dòng.
2 câu trả lời
uses crt;
var i,n: integer;
f: text;
a: array [1..100] of integer;
begin
clrscr;
write('So phan tu: '); readln(n);
for I:=1 to n do begin
write('a[',i,']='); readln(a[i]); end;
assign(f,'mang.txt');
rewrite(f);
for I:=1 to n do write(f,a[i],' ');
close(f);
readln;
end.
đã test mong đc vote!
tệp sau khi hoàn thành thường đc lưu ở: C:\FPC\3.2.0\bin\i386-win32\
và tìm đến file mang.txt nhé!
uses crt;
var f:text; i,n:longint; a:array[1..100]of longint;
begin
clrscr;
write('Nhap n (n<=100): ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
end;
assign(f,'MANG.TXT');rewrite(f);
for i:=1 to n do
writeln(f,a[i]);
close(f);
readln
end.
