no niech Ci będzie, myślałem że każda w osobnej linii..
Kod: Zaznacz cały
program test;
var plik:text;
liczby:array[0..20]of integer;
tmp,i:integer;
c:char;
begin
i:=-1;
assign(plik,'plik.txt');
reset(plik);
while not eof(plik) do begin
if eoln(plik) then readln(plik)
else begin
read(plik,c);
if c<>' ' then begin
if eoln(plik) then tmp:=ord(c)-ord('0')
else begin
tmp:=0;
while (not eoln(plik)) and (c<>' ') do begin
tmp:=10*tmp+ord(c)-ord('0');
read(plik,c);
end;
if eoln(plik) then tmp:=10*tmp+ord(c)-ord('0');
end;
i:=i+1; liczby[i]:=tmp;
end;
end;
end;
while i>=0 do begin
writeln(liczby[i]);
i:=i-1;
end;
close(plik);
end.
teraz już chyba niczego nie można zarzucić temu programowi.. w pliku może być mnóstwo spacji i enterów pomiędzy liczbami ale i tak wypisze wszystkie poprawnie od końca..