Giải giúp mình với ạ! Viết lệnh nhập vào từ bàn phím dãy số A gồm có N số nguyên dương . GIá trị A mang vừa nhập vào tệp có tên là vidu.txt . Đọc và hiển thị dữ liệu từ tệp trên
2 câu trả lời
uses crt;
var a: array[1..100] of integer;
n,i: integer;
f: text;
begin
assign(f,'vidu.txt');
reset(f);
read(f,n);
for i:=1 to n do
read(f,a[i]);
writeln ('day mang la: ');
for i:=1 to n do write (a[i]:3);
close(f);
readln;
end.
uses crt;
var f:text;
A:array[1..10000] of integer;
n,i:integer;
begin
clrscr;
Assign(f,'vidu.txt'); reset(f);
readln(f,n);
for i:=1 to n do
begin
read(f,A[i]);
write(A[i],' ');
end;
readln;
end.
