Question

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

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.
Думаю так будет.

Answer 2

Массив из 20 элементов, заполнен случайными числами. Вывести на экран все положительные элементы и вычислить их сумму