Ввести файл F из 12 элементов Опции

[mfractus]

Здравствуйте уважаемые пользователи ресурса! Прошу помощи в решении задачи.

Ввести файл F из 12 элементов. Определить в нём произведение тех
элементов, чей модуль лежит в диапазоне [ 1; 5]. Заранее спасибо!

Начал с ввода файла F:

program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
write(f,b);
end;

[mfractus]

Большое спасибо за пояснение! Можно ли исправить данную ситуацию без помощи flag? Через else может просто?

[Freedom]

Большое спасибо за пояснение! Можно ли исправить данную ситуацию без помощи flag? Через else может просто?

А почему вам не нравится flag? можно переделать. В смысле просто через else?

[mfractus]

А почему вам не нравится flag? можно переделать. В смысле просто через else?

Я вас понял, конечно же, будет лучше использовать flag. Почему предложенный Вами код программы намного короче? Я делал основываясь на примере.. к примеру присутствует часть кода

reset(f);
P:=1;
while not EOF(f) do
begin
read(f,b);

?

[DarkWishmaster]

Я вас понял, конечно же, будет лучше использовать flag. Почему предложенный Вами код программы намного короче? Я делал основываясь на примере.. к примеру присутствует часть кода

reset(f);
P:=1;
while not EOF(f) do
begin
read(f,b);

?

у него короче потому что он вычисление делает сразу когда пишет в фаиле. А ты сначала записываешь в фаиле, потом читаешь из него и делаешь вычисления.