Em đang cần gấp ạ! .Ai giải giúp em với, em cảm ơn!!
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 mảng 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.
Em đang cần gấp ạ! .Ai giải giúp em với, em cảm ơn!!
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 mảng 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.
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.
program bai_giai;
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
read(f,A[i]);
write(‘Mang la: ‘);
for i:=1 to n do write(A[i],’ ‘);
close(f); readln;
end.