program SumNegativeOdd;
vararr: array[1..5] of Integer;i, sum: Integer;
beginsum := 0;
writeln('Введите 5 целых чисел:');for i := 1 to 5 dobeginreadln(arr[i]);
end;
writeln('Сумма нечетных отрицательных чисел: ', sum);
end.
program SumNegativeOdd;
var
arr: array[1..5] of Integer;
i, sum: Integer;
begin
sum := 0;
writeln('Введите 5 целых чисел:');
if (arr[i] < 0) and (arr[i] mod 2 <> 0) thenfor i := 1 to 5 do
begin
readln(arr[i]);
sum := sum + arr[i];
end;
writeln('Сумма нечетных отрицательных чисел: ', sum);
end.