positive := true;
for i := 1 to ArraySize do
positive := positive and (a[ i ] > 0);
if positive then
begin
minFind := false;
for i := 1 to ArraySize do
if not odd(a[ i ]) then
if minFind then
begin if min > a[ i ] then min := a[ i ]; end
else
begin min := a[ i ]; minFind := true; end;
if minFind then
WriteLn('минимальный чётный = ', min)
else
WriteLn('нет чётных элементов в массиве');
end
else
begin
WriteLn('все нечётные элементы заменены на 0:');
for i := 1 to ArraySize do
begin
if odd(a[ i ]) then
a[ i ] := 0;
Write(a[ i ], ' ');
end;
WriteLn;
end;