Задачи. Паскаль.

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 раз. / Посл. изм.

ЗЛО 7.16

(19 июн 2013, 12:20)

Пробывал решение в инете искать?

Вот, вспомнил про тему. Держите, может кому пригодится, кто на программиста на втором курсе учится.

Прикрепленные файлы:
PROFIWM_RU_927_421779_pascal.txt (4.11 кб)

Тема закрыта для обсуждения!