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

Question

Информатика

Апфия

31 декабря, 13:25

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

+4

Ответы (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.

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