Тема закрыта!
11. (19 июн 2013, 12:20) [0/0] [0] [спам] [под]
Изм. 1 раз. / Посл. изм. (19 июн 2013, 12:20)
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. как-то так 
Изм. 1 раз. / Посл. изм. (19 июн 2013, 12:20)
13. [автор] (7 сен 2013, 11:17) [0/0] [0] [спам] [под]
Вот, вспомнил про тему. Держите, может кому пригодится, кто на программиста на втором курсе учится.
