Ввести файл 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 - 26.04.2011 23:16

[Freedom]

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

[mfractus]

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

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

[Freedom]

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

Всё верно.Я просто понял условие по другому немного

[mfractus]

Всё верно.Я просто понял условие по другому немного

((Filepos(f)-1) mod 2<>0) - Вот это значит каждый второй элемент? Верно?

[Freedom]

((Filepos(f)-1) mod 2<>0) - Вот это значит каждый второй элемент? Верно?

Верно

[mfractus]

Верно

Большое спасибо!

Добавлено через 5 мин.

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

А нет ведь никакой разницы? Это одно и тоже?