Задача на файлы, задача Опции

[Neo]

Найти произведение всех отрицательных элементов файла

[volvo]

p := 1;
While not eof(f) do begin
  x := GetNextElement(f);
  if x < 0 Then p := p * x;
end;

Какой вопрос - такой и ответ. Нужно что-то более точное - задавай более точный вопрос...

[Guest]

Что тут непонятного,нормальный вопрос,я так же и делал,но паскаль не запускал..вот ещё одна задачка...
вывести на экран все положительные и чётные числа файла,я забыл как записывать чётность

[xds]

if (x > 0) and (x and 1 = 0) then { x - положительное чётное };

[volvo]

то тут непонятного,нормальный вопрос

Правда, ты так считаешь? Ну, тогда расскажи мне, как я должен догадаться, у тебя

Var
  f: Text; { Файл - текстовый? }

или

Var
  f: File Of Integer; { или типизированный? }

я так же и делал

:no: "Не верю!!!" (С) Если бы ты так делал, то привел бы код, и спросил, почему он не работает. Между прочим, тот пример, который я привел, тоже еще нужно доработать...

P.S. Кстати, четность записывается как not Odd(X)