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

Question

Информатика

Ванда

1 сентября, 23:58

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

+3

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

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