Файлы.Удаление отрицательного числа, В файле целых чисел, если перед положительным числом стоит отрицательн Опции

[Lapp]

Упускаешь...

Упс!.. конечно, упустил.. ((

Read(f,i);
while not EoF(f) do begin
  Read(f,j);
  if (i>=0)or(j<=0) then Write(g,i);
  i:=j  // вот это
end;
Write(g,j);

Sorry..

Но я имел в виду другое. Упускаю?..


guys, давайте не выходить за рамки дискуссий по предмету. Личные обиды тут ни при чем, мне кажется.

[mihailov.o.v]

Упс!.. конечно, упустил.. ((

Read(f,i);
while not EoF(f) do begin
  Read(f,j);
  if (i>=0)or(j<=0) then Write(g,i);
  i:=j  // вот это
end;
Write(g,j);

Sorry..

Но я имел в виду другое. Упускаю?..
guys, давайте не выходить за рамки дискуссий по предмету. Личные обиды тут ни при чем, мне кажется.

Помоему ничего не упускаете, сейчас попробую написать програмку, освежить школьные навыки