Как считать числа из файла в массив,если между числами пробелы?Кол-во строк и символов в каждой строке неизвестно.Программу на PascalABC,пожалуйста.
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
Вы просто написали программу для считывания из файла, а задание другое
Вы уверены? Задание было "Как считать числа из файла в массив,если между числами пробелы?"
От Вашего это решение отличается лишь тем, что оно занимает 4 строки вместо 18 и не использует дурацкий статический массив из фиксированных 1000 элементов, а формирует динамический массив любого необходимого размера.
Да,спасибо,не знал о таком.Буду пользоваться.
Подозреваю, что Вы еще много чего об этой версии языка не знаете )))
uses crt;
var f:text;
a:array[1..1000] of integer;
n,i,x:integer;
assign(f,'111.txt');
reset(f);
n:=0;
while not eof(f) do
inc(n);
read(f,a[n]);
end;
close(f);
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
Спасибо.