Var X: array [1..15] of integer; i, sum: byte; begin sum := 0; randomize; writeln(' *** Исходный массив ***'); for i := 1 to 15 do begin X[i] := random(15)-9; if ((X[i] > 0) and (X[i] mod 2 = 0)) then sum := sum + X[i]; write(X[i],' '); end; writeln; writeln('Сумма положительных четных = ', sum); readln; end.