Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 10 элементов, вводим их с клавиатуры.)

Question

Информатика

Граня

12 января, 22:43

Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 10 элементов, вводим их с клавиатуры.)

+2

Ответы (1)

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

Дуся · Answer 1

Var x:array[1 ... 10] of integer;

i, n, s:integer;

begin s:=0;

for i:=1 to n do

read (x[i]) ;

for i:=1 to n do

if x[i] mod2=1 then s:=s+x[i];

writeln ('s=, s) ;

readln;

readln

end.

Думаю так будет.