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

Спасибо.

Вы просто написали программу для считывания из файла, а задание другое

Вы уверены? Задание было "Как считать числа из файла в массив,если между числами пробелы?"

От Вашего это решение отличается лишь тем, что оно занимает 4 строки вместо 18 и не использует дурацкий статический массив из фиксированных 1000 элементов, а формирует динамический массив любого необходимого размера.

Да,спасибо,не знал о таком.Буду пользоваться.

Подозреваю, что Вы еще много чего об этой версии языка не знаете )))

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.

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadAllText('input.txt').ToIntegers;

 a.Println

end.

Во втором вложении файл input.txt