Паскаль. В файл записываются только "0". Что делать?

[Serge_Bliznykov]

всё... я устал повторять одно и то же, одно и то же!

 For i:=1 to 100 do begin
  c1.a[i]:=round(10+random*(100-10));
   Write('x',i,'=',c1.a[i],' ');
  write(f1,c1);
 end;

читайте свой код записи, и попытайтесь понять, сколько массивов mas1 и mas2 будет записано в файл...


__________________

Сообщение от =master=

А почему не 16?

посмотрите мой пост #4: в том коде, к которому я дал комментарий циклы от 1 до 3 и вложенный от 1 до 5 - очевидно, что внутренный цикл (где чтение массива) выполнится 3*5 = 15 раз