Const n=10; var x: array[1..n] of integer; i,s: integer; found: boolean; begin { инициализация массива } randomize; writeln('элементы массива'); for i: =1 to n do begin x[i]: =random(50); write(x[i]: 3); end; writeln; { 1 } s: =0; i: =1; while i< =n do begin s: =s+x[i]; i: =i+2 end; writeln('cумма элементов на нечетных местах равна ',s); { 2 } for i: =1 to n-1 do begin found: =(x[i] mod 2 = 0) and (x[i+1] mod 2 = 0); if found then break end; if found then writeln ('пара соседних четных элементов: ',x[i],', ',x[i+1]) else writeln('нет пары соседних четных элементов') end. тестовое решение: элементы массива 3 11 42 38 36 47 8 15 15 13 cумма элементов на нечетных местах равна 104 пара соседних четных элементов: 42, 38