Question

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

Answer 1

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.

Answer 2

Спасибо.

Answer 3

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

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

 a.Println

end.

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

80414f99069fafada9f8ce69f066ef4d.txt

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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