Помогите откорректировать программу

Question

Помогите откорректировать программу. Нужно, чтобы выводилась сумма элементов массива с четными ИНДЕКСАМИ. Т. Е., например, в массиве 2 7 8 9 3 — ответвыводится 16. Ошибка в середине программы где-то.program; var s,i,n: integer; a: array[1… 1000] of integer; beginassign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln (n); for i: =1 to n do read (a[i]); begins: =0; i: =i*2; s: =s+a[i]; end; write (s); close (input); close (output); end.

Answer 1

67

artball

20 августа 2022

Program; var s,i,n: integer; a: array[1… 1000] of integer; beginassign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln (n); s: =0; for i: =1 to n do beginread (a[i]); if i mod 2=0 thens: =s+a[i]; end; write (s); close (input); close (output); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: