Задание:
Помогите откорректировать программу. Нужно, чтобы выводилась сумма элементов массива с четными ИНДЕКСАМИ. Т. Е., например, в массиве 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.
Решение:
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.
Знаете другой ответ?