Массив заполнен целыми числами [-50: 50] в массиве 10 чисел 1)найти сумму нечетных элементов 2)найти произведение элементов расположенных на четных местах , 3) все элементы кратные десяти заменить нулем найти число пар соседних элементов являющими четными

Var   a: array [1..10] of integer;   pr, i, kol, sum: integer; begin   sum : = 0;   pr : = 1;   for i : = 1 to 10 do       a[i] : = -50 + random(100);   for i : = 1 to 10 do   begin       if (a[i] mod 2 = 1) or (a[i] mod 2 = -1) then    // 1           sum : = sum + a[i];           if (i mod 2 = 0)    then                                                // 2           pr : = pr * a[i]       else if (i mod 2 = 0) and (a[i] = 0) then           pr : = 0;                                 end;   for i : = 1 to 10 do       if (a[i] mod 10 = 0) then           a[i] : = 0;   for i : = 2 to 9 do                                                              // 3   begin       if a[i] = 0 then           if (a[i + 1] < > 0) and ((i + 1) mod 2 = 0) and (a[i - 1] < > 0) and ((i - 1) mod 2 = 0) then               kol : = kol + 1;   end;   writeln('сумму нечетных элементов =', ' ', sum);   writeln('произведение элементов =', ' ', pr);   writeln('число пар соседних элементов =', ' ', kol); end.

никак

Объяснение: