Ввести файл 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]

Вот пример:

 // увеличение на 5 в файле элементов больших четырех,
// не стоящих на позициях кратных трём
reset(f);
while not EOF(f) do
begin
read(f,b);
if (b>4) and ((filepos(f)-1) mod 3 <> 0) then
begin
seek(f,filepos(f)-1);
b:=b+5;
write(f,b);
end;
end;
//вывод файла после изменения
reset(f);
writeLn('файл f после изменения:');
while not EOF(f) do
begin
read(f,b);
6
write(b:5);
end;
writeLn;
close(f);
end.

[DarkWishmaster]

меняешь условие на

if (b>=-3) and (b<=5) and ((Filepos(f)-1) mod 2<>0) then
begin
seek(f,filepos(f)-1);
b:=1;
write(f,b);
end;

хм, а я думал что при reset можно только читать из файла

Сообщение отредактировано: DarkWishmaster - 27.04.2011 3:16

[Freedom]

А вот по условию задачи, это нужно каждый чётный элемент, подходящий под условие, менять на еденицу, или каждое второе число подходящее условию заменять на единицу?

[mfractus]

А вот по условию задачи, это нужно каждый чётный элемент, подходящий под условие, менять на еденицу, или каждое второе число подходящее условию заменять на единицу?

По условию, каждый второй элемент. Не верно?