Заполнить двоичный файл целыми числами из интервала [-3000; 8000]. Количество компонент файла вводится с клавиатуры. Поменять местами в файле первый нечетный по значению компонент и последний четный.

1) Тест для работы

2) Написать простой алгоритм

3) Код программы

4) Скрин шот

5) Заключение (какие логические ошибки)

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.