[qazxcdews]

Уменьшить минимальное число одномерного массива на 1.

И вторая
Найти сумму положительных черных чисел, меньших 50

[Страдалецъ]

Код:

Min := 1;
for i := 2 to 50
do if A[i] < A[Min] 
    then Min := i;
Dec(A[Min]);

[Kapitoshka438]

Код:

function Sum: Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to N do
    if (A[i] > 0) and (A[i] mod 2 = 0) then
      Inc(Result, A[i]);
end;