Считать 10 цифр из файла Опции

[Эмиль]

Здраствуйте. Есть файл a.in в нем записано 10 цифр подряд, без пробелов, к примеру 1234567890 как их считать, к примеру в массив, чтобы b[1]=1 b[2]=2 и т.д. b[10]=0?

[Fire_Rage]

Зачем так сложно? Не легче ли с val'ом:

Код

var
cc:char;
i,g:integer;
b:array[1..10]of integer;
begin
assign(input,a.in);
reset(input);
i:=0;
while not eof(input) do begin
                                       read(cc);
                                       i:=i+1;
                                       val(cc,b[i],g);
                                      end;
end.

Сообщение отредактировано: volvo - 17.12.2004 14:59