如题...怎么弄呢？（每个数之间用空格分开，这些数可能是1位，也可能是好多位）还有另外两个问题：如果这些数字中有小数呢？如果这些数字是分好几行写的呢？

1.若只有一行，有N个整数，那么： {a:array[1..maxn] of longint} for i:=1 to n do read(a[i]);2.若只有一行，有N个小数，那么： {a:array[1..maxn] of real} for i:=1 to n do read(a[i]);3.若有Y行，每行有X个数，那么： {a:array[1..max] of real(or longint)} for i:=1 to y do begin for j:=1 to x do read(a[j+j*(i-1)]); readln; end;

文件读入有两种方式：一、 var f:text; begin assign(f，‘文件名’)； reset(f); 1.若只有一行，有N个整数，那么： {a:array[1..maxn] of longint} for i:=1 to n do read(f,a[i]); 2.若只有一行，有N个小数，那么： {a:array[1..maxn] of real} for i:=1 to n do read(f,a[i]); 3.若有Y行，每行有X个数，那么： {a:array[1..max] of real(or longint)} for i:=1 to y do begin for j:=1 to x do read(f,a[j+j*(i-1)]); readln(f); end; 读完之后要注意close(f);二、 不需要定义上一种方法中的变量F 只需 begin assign(input,'文件名'); reset(input); 具体读入的数据之前也不用加文档变量 1.若只有一行，有N个整数，那么： {a:array[1..maxn] of longint} for i:=1 to n do read(a[i]); 2.若只有一行，有N个小数，那么： {a:array[1..maxn] of real} for i:=1 to n do read(a[i]); 3.若有Y行，每行有X个数，那么： {a:array[1..max] of real(or longint)} for i:=1 to y do begin for j:=1 to x do read(a[j+j*(i-1)]); readln; end; 最后注意要close(input);

弱弱地问一句,如果不知道有多少个数怎么办?

LS,用eoln和eof判断该行或全文是否已完.

谢谢！！我手头没有编译软件，没法试...但是还是谢谢！！！

eoln不行啊

while not(eof()) do

已知有多少数但是中间有空格怎么办

其实可以用字符串来写
可以参考我的计算器，呵呵。
先做一个判断是数字或小数点还是空格的function
然后对字符串分割即可