Как считать числа из файла в массив,если между числами пробелы? кол-во строк и символов в каждой строке неизвестно.программу на pascalabc,.

uses crt;

var f: text;

    a: array[1..1000] of integer;

    n,i,x: integer;

begin

assign(f,'111.txt');

reset(f);

n: =0;

while not eof(f) do

begin

  inc(n);

  read(f,a[n]);

end;

close(f);

writeln('исходный массив: ');

for i: =1 to n do

write(a[i],' ');

end.

такого типа не имеют однозначного решения, можно предложить нескольео вариантов и все они будут правильные. слишком мало членов дано.

вот мои версии.

а. 1; 3; 6; 4; 11; 5; 16; (на нечётных местах всё время +5, на чётных +1)

б. 9; 7; 10; 4; 11; 1; 12; -2; (на нечётных +1, на чётных -3)

в. 3; 2; 1; 6; 5; 4; 9; 8; 7; 12; 11; (тройки n; n-1; n-2; первое число тройки - последовательные числа, кратные 3)

могу предложить ещё несколько других вариантов продолжения последовательностей и все они, повторюсь, будут правильными. 

одно только замечание: всегда нужно указывать алгоритм или формулу, по которой последовательность строится(продолжается).