program pr;
uses crt ;
var f,c : file of integer;
s,a,n,i:integer;
Begin
clrscr;
assign(f,'c:\1125.txt');
assign(c,'c:\1126.txt');
rewrite(f);
rewrite(c);
writeln('vvedite razmer file (f)');
readln(n);
writeln('zapolnite file');
for i:=1 to n do begin
write(f,a);
readln(a);
end;
close(f);
close(c);
reset(f);
reset(c);
s:=0;
while not eof (f) do begin read(f,a);
if (a>0) then begin write (c,a); end;
if (a<0) then begin s:=s+a; end;
end;
writeln('summa otric',s);
write(f,s);
close(f);
close(c);
readkey;
end.
Ссылка на пост
14 фев 2012 в 19:30