Tr!kName prod.,
File15
var f:file of real;
i:integer;
s:real
mass: array [1..1000] of real; begin
for i:=1 to 1000 do mass:=0; {на всякий
случай обнуляем массив}
assign(f. \'file.txt\'); {привязываем файл к
переменной}
reset(f); i=1;
while not EOF(f) do
begin
readln(f, mass);
i:=i+1;
end; {считали в массив} close(f);
s:=0;
for i:=1 to 1000 do
if (i mod 2) = 0 then s:=s+mass;
writeln(\'Сумма=\',s);
end. как-то так