Дан массив f[10] заполненный по формуле в файле a.txt, определить сумму четных элементов...

Question

Дан массив f[10] заполненный по формуле в файле a.txt, определить сумму четных элементов и вывести ее в входной файл b.txt Формула: y=2sin(x)+1

Answer 1

var t1,t2:text;

begin

assign(t1,"a.txt");

assign(t2,"b.txt");

reset(t1);

rewrite(t2);

var i:byte:=0;

var a,sum:integer;

sum:=0;

while not eof(t1) do begin

readln(t1,a);

inc(i);

if ((i+1) mod 2=0) then sum+=a;

end;

writeln(t2,sum);

close(t1);

close(t2);

end.