Огромное спасибо! Очень помогли!

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

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

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

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

Верно

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

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

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

Конечно, не одно и то же.
Условие однозначно трактуется как каждое второе, подходящее по условию.
На всяк случай приведу пример
До:
10 -1 2 20 4 0
После:
10 -1 1 20 4 1

Код готовой программы. Сколько раз прописывать flag:=false;?

 program ABC;
var b,P,i:integer;
    f:file of integer;
    flag:boolean;
begin
     assign(f,'f.dat');
     // ввод файла
     rewrite(f);
     writeLn('вводите 12 компонент файла f:');
     flag:=false;
     for i:=1 to 12 do
         begin
              writeLn('введите ',i,'-ую компоненту файла f');
              readLn(b);
              write(f,b);
         end;
     // поиск элементов чей модуль лежит в диапазоне [1; 5]
     reset(f);
     P:=1;
     flag:=false;
     while not EOF(f) do
           begin
                read(f,b);
                if (abs(b)>=1) and (abs(b)<=5) then
                   begin
                        P:=P*b;
                        flag:=true;
                   end;
           end;
     // вывод результатов
     if flag then
        writeln('произведение элементов: ',P)
     else
         writeLn('в файле нет таких элементов');
     close(f);
end.

Сообщение отредактировано: mfractus - 27.04.2011 11:33

Достаточно одного раза в начале программы.

Спасибо! Так и сделал!

Скажите, пожалуйста, что значит строка write(a,' ');? То что запись - знаю. В скобках, что за пробел?

Сообщение отредактировано: mfractus - 28.04.2011 23:53

Я просмотрел всю тему и не смог найти такой фрагмент. Откуда ты его взял?

Совет: убери этот пробел, прогони прогу и посмотри, что получится. Думаю, сразу поймешь.


и почему бы не повысить репу ребятам за помощь?.. жалко клика?

Это с другой программы, не тему ведь ради этого создавать. Воспользовался Вашим советом. Этот пробел разделяет числа в файле до изменения и после. Если убрать, то вместо 1 2 3 4 5 6, получится 123456