Дан файл целых чисел. Удалить из него все отрицательные числа

[vaako]

Дан файл целых чисел. Удалить из него все отрицательные числа

[antishoker]

var
  f:text;
  i:integer;
  a:array[1..1000] of real;
begin
  assign(f,'file.txt');
  reset(f);
  while not eof(f) do
  begin
    i:=i+1;
    read(f,a[i]);
  end;
  rewrite(f);
  for i:=1 to i do
    if a[i]>0 then
       write(f,a[i]:3:0,' ');
  close(f);
  end.

Проверьте, не могу Pascal запустить...
И еще, вчера прочитал вот эти правила - http://programmersforum.ru/announcement.php?f=7 и многое переосмыслил, советую =)

[Serge_Bliznykov]

Дан файл целых чисел.

antishoker, а у Вас что?! (f:text;) и откуда взялся массив типа real ?!
про такие "мелочи", как отстутствие иницилизации используемых переменных я уже вообще молчу...


ладно.
и, хоть автор темы НЕ ПРОСИЛ о помощи,
я приведу простенькое решение, если уж морочиться с массивом, тогда код может выглядеть так:

const MaxSize = 10000;
var
  f:file of integer;
  i, j, cur :  integer;
  a : array[1..MaxSize] of integer;
begin
  assign(f,'file.dat');
  reset(f);
  i := 0;
  while not eof(f) do
  begin
    Read(f, cur);
    if cur>=0 then begin
      inc(i);
      if i>MaxSize then begin
        Close(f);
        WriteLn('В файле положительных значений больше ',MaxSize);
        WriteLn('Нажмите Enter для аварийного завершения работы!');
        Readln;
        Halt(1)
      end;
      a[i] := cur;
    end; 
  end;

  rewrite(f);
  for j:=1 to i do
     write(f,a[j]);
  close(f);
end.

[antishoker]

Нашел Паскаль, проверил - программа работает и свои функции выполняет. Только вот с массивом действительно ошибся.

[Serge_Bliznykov]

Нашел Паскаль, проверил - программа работает

вы про какую программу? Про свою?

Так я же Вам сказал, в чём у Вас главная ошибка!
вы

var f:Text;

от

f:file of integer;

можете отличить?!!

[antishoker]

Все-все, понятно, вы правы.