Cho tệp bai1.txt gồm 8 dòng , mỗi dòng chứa 1 số nguyên . Viết ctrinh in 8 số đó ra trên cùng1 dòng . Giúp mình nhanh nhá votevaf tym
2 câu trả lời
uses crt;
var f:text;
a:array[1..8]of longint;
i:longint;
begin
assign(f,'bai1.txt');reset(f);
for i:=1 to 8 do readln(f,a[i]);
close(f);
assign(f,'bai1.out');rewrite(f);
for i:=1 to 8 do write(f,a[i],' ');
close(f);
end.
program ideone;
var
a: array[1..8] of integer;
i: integer;
begin
for i:=1 to 8 do readln(a[i]);
for i:=1 to 8 do write(a[i], " ");
end.
Anh tự thêm đóng mở file nha
Câu hỏi trong lớp
Xem thêm
