Ha pascalban beolvasok egy szoveg. Txt fájlból egy számsort, hogy lehet beletenni egy lineáris tömbbe?

Beolvasni gondolom tudsz. Beolvasás közbe közvetlenül a tömböt töltöd fel. Kell egy ciklusvátozó ...

Inkább egy példát írok, mivel könnyebb és rövidebb elmagyarázni is nem csak megérteni:

var

t:array [1..8] of integer;

t_index,i:integer;

f:text;

begin

assign(f,'szamok.txt');

reset(f);

t_index:=0;

while not eof(f) do

begin

inc(t_index);

readln(f,t[t_index]);

end;

close(f);

for i:=1 to t_index do

writeln('t[',i,']=',t[i]);

end.

szamok.txt maximum 8 számot tartalmazhat e példa alapján és egymás alatt külön sorba.