Цитата:
Сообщение от йцуйцу
Паскаль как всегда)
|
Да пожалуйста! Если Вы по-прежнему отказываетесь назвать требуемый тип файла, выбор оного оставляю за собой и ставлю текстовый формат. Имена и пути к файлам поставьте свои, если надо:
Код:
Var
f,f1:Text;
a1,a2,i:Integer;
Begin
Randomize;
Assign(f,'D:\xxx.txt');
Rewrite(f);
for i:=1 to 100 do
begin
a1:=-20+Random(40);
write(f,a1:4);
end;
Close(f);
Reset(f);
Assign(f1,'D:\yyy.txt');
Rewrite(f1);
Read(f,a1);
for i:=2 to 100 do
begin
read(f,a2);
if a2>a1 then write(f1,a2:4);
a1:=a2;
end;
Close(f);
Close(f1);
End.