cho tệp chứa liên tiếp các số nguyên cách nhau bằng dấu cách và không kết thúc bằng kí tự xuống dòng. hãy viết chương trình của dãy số nguyên đó ra màn hình
Chào các pro, hiện mình đang cần support nhanh chóng để giải đáp câu hỏi này. Ai có thể chia sẻ kiến thức của mình không?
Các câu trả lời
Câu hỏi Tin học Lớp 11
Câu hỏi Lớp 11
Bạn muốn hỏi điều gì?
Đỗ Văn Huy
uses crt;
const fi='mang.inp';
var f1:text;
a:array[1..10000]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
read(f1,a[i]);
end;
for i:=1 to n do write(a[i]:4);
close(f1);
readln;
end.