program SumOddAndNegatives;
var
arr: array[1..10] of integer;
i, sumOdd, countNeg: integer;
begin
sumOdd := 0;
countNeg := 0;

// Заполнение массива случайными числами
Randomize;
for i := 1 to 10 do
begin
arr[i] := Random(21) - 10;
end;

// Вывод массива
writeln('Массив:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
if arr[i] mod 2 <> 0 then
begin
sumOdd := sumOdd + arr[i];
end;
if arr[i] < 0 then
begin
countNeg := countNeg + 1;
end;
end;

// Вывод суммы нечетных элементов и количества отрицательных
writeln;
writeln('Сумма нечетных элементов: ', sumOdd);
writeln('Количество отрицательных элементов: ', countNeg);
end.