«Типизированные файлы»

[orehov]

Разработать программу для заполнения типизированного файла целыми числами в интервале [-250; 250]. Найти сумму нечетных чисел, хранящихся в файле, и записать ее вместо компоненты с заданным номером.

[Firstchar]

а какой язык?

[orehov]

турбо паскаль

[Firstchar]

uses crt;
var f:file of integer;
i,n,k,sum,pos:integer;
f_name:string;
begin
clrscr;
randomize;
write('введите имя файла: ');
readln(f_name);
assign(f,f_name);
write('введите количество чисел: ');
readln(n);
rewrite(f);
for i:=1 to n do
begin
k:=random(500)-250;
write(f,k);
end;
close(f);
sum:=0;
reset(f);
for i:=1 to n do
begin
read(f,k);
if i mod 2<>0 then
sum:=sum+k;
end;
close(f);
writeln('на какое место записать сумму? ');
readln(pos);
reset(f);
seek(f,pos);
write(f,sum);
readkey;
end.

[Rin]

перед readkey; ещё разок close(f); иначе файл останется в памяти.