Question

Решить задачу на языке паскаль абс.

Answer 1

  var    a:integer;    t,tt:text;Begin  assign(t,'t1.txt');  reset(t);  assign (tt,'t2.txt');  rewrite(tt);   while not Eof(t) do begin    Read(t,a);    if a>0 then begin write(tt,a); write(tt,' '); end;        end;    close(t);    close(tt);
End.
не забудь в папке PABCWork.NET на диске С: создать файл t1.txt и записать в него последовательность чисел через пробел