В массиве F (15) найти сумму элементов, стоящих на нечетных местах

Question

Информатика

Сина

19 декабря, 20:26

В массиве F (15) найти сумму элементов, стоящих на нечетных местах

+1

Ответы (1)

Знаете ответ на вопрос?

Аристарх · Answer 1

Const

n = 15;

var

i, s: integer;

a: array[1 ... n] of integer;

begin

s : = 0;

for i : = 1 to n do

begin

write ('a[', i, ']=') ;

readln (a[i]) ;

if i mod 2 = 1 then

s : = s + a[i];

end;

writeln (s) ;

end.