program Exam17;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
f=file of integer;
mas=array[1..10] of integer;
var
f1,f2:f;
a,b:mas;
i,m,n,k,j:integer;
procedure Per(var a,b:mas);
begin
reset(f1);
rewrite(f2);
while not eof(f1) do
read(f1,a[i]);
k:=0;
for i:=1 to n do
if a[i]<0 then
begin
k:=k+1;
b[k]:=a[i];
end;
for i:=1 to k do write(f2,b[k]);
writeln;
close(f1);
close(f2);
end;
begin
assign(f1,'c:\f1.dat');
assign(f2,'c:\f2.dat');
rewrite(f1);
writeln('Vvedite kol-vo elementov:');
readln(n);
writeln('Vvedite elementi:');
for i:=1 to n do readln(a[i]);
writeln('Vveli:');
for i:=1 to n do write(a[i]:4);
writeln;
For i:=1 to n do write(f1,a[i]);
close(f1);
reset(f1);
writeln('File:');
while not eof(f1) do begin
read(f1,a[i]);
write(a[i]:4);
end;
writeln;
close(f1);
per(a,b);
writeln('FAIL 2:');
reset(f2);
while not eof(f2) do
read(f2,b[k]);
for i:=1 to k do write(b[i]:4);
close(f2);
writeln;
readln;
end.

Случайные файлы

Файл
descript.ion.txt
description.txt
Dz5.txt
DB.TXT
!contents.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.