в текстовом файле записаны цифры (их количество мы не знаем). Нам необходимо эти цифры занести в массив. Вроде все сделал, но пишет какие-то непонятные цифры
вот код
Код
procedure load(var a:array of integer);
var f:file of integer; n:string;h,s,i:integer;
begin
Writeln('vvedite adres faila');
readln(n);
assign(f,n);
i:=0;
reset(f);
while not eof(f) do begin
read(f,h);
i:=i+1;
a[i]:=h;
Writeln(h);
end;
close(f);
readln;
end;
если в файле цифры 34 5 3 45 3
то выводит он их в виде 13363 13600 13088 13344 и т.д.
я так понимаю. что это все из-за несоответствия параметров.. массвич интеджер, а читаем стринг
можно было бы изменить тип массива. но это не допустимо... надо что-то здесь мутить..
заранее спасибо большое