Var i,n,fs,ls: integer; fsz,indf,indl: int64; f: file of integer; begin write('n = '); readln(n); // запись в файл целых чисел assign(f,'input.txt'); rewrite(f); for i:=1 to n do write(f,random(-3000,8000)); close(f); // замена элементов в файле assign(f,'input.txt'); reset(f); fsz:=FileSize(f); indf:=0; for i:=0 to fsz-1 do begin read(f,n); if ((n mod 2)<>0) and (indf=0) then begin indf:=i; fs:=n; end; if (n mod 2)=0 then begin indl:=i; ls:=n; end; end; reset(f); seek(f,indf); write(f,ls); reset(f); seek(f,indl); write(f,fs); close(f); end.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var fn:='MtFile.bin'; var n:=ReadInteger; var f:file of integer; var s:=SeqRandom(n,-3000,8000); // последовательность не хранится Rewrite(f,fn); foreach var m in s do Write(f,m); f.Close; // файл создан и закрыт Reset(f,fn); var b:integer; // буфер while not Eof(f) do begin Read(f,b); Print(b) end; Writeln; Seek(f,0); // стали в начало файла Read(f,b); var iOdd:=0; while not Eof(f) and b.IsEven do begin Read(f,b); iOdd+=1 end; if Eof(f) and b.IsEven then begin Writeln('Нет нечетных компонентов'); exit end; var (bb,iEven):=(b,n); repeat iEven-=1; Seek(f,iEven); Read(f,b) until (iEven=1) or b.IsEven; if b.IsOdd then begin Writeln('Нет четных компонентов'); exit end; Seek(f,iEven); Write(f,bb); Seek(f,iOdd); Write(f,b); Seek(f,0); while not Eof(f) do begin Read(f,b); Print(b) end; Writeln; f.Close end.
пересечение-30
объединение--70