---

program SumOddNegative;

const
  N = 30;              // размер массива

var
  A: array[1..N] of Integer;
  i, S: Integer;

begin
  Randomize;           // инициализация генератора случайных чисел

  // Заполнение массива случайными числами в диапазоне [-50, 50]
  WriteLn('Исходный массив A:');
  for i := 1 to N do
  begin
    A[i] := Random(101) - 50;   // Random(101) даёт 0..100, вычитаем 50 → -50..50
    Write(A[i]:5);
    if i mod 10 = 0 then WriteLn;  // перенос строки каждые 10 элементов
  end;
  WriteLn;

  // Вычисление суммы нечётных отрицательных элементов
  S := 0;
  for i := 1 to N do
    if (A[i] < 0) and (A[i] mod 2 <> 0) then
      S := S + A[i];

  WriteLn('Сумма нечётных отрицательных элементов: S = ', S);
  ReadLn;
end.