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

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

Задать свой вопрос
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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт