I. Решить задачу на обработку линейного массива. Найти сумму минимального и первого отрицательного элемента. Если отрицательных элементов нет, сообщить об этом. Паскаль.

Предыдущий
вопрос Следующий
вопрос

program SumMinNeg;

const
n = 5;

var
arr: array[1..n] of integer;
i, min, firstNeg, sum: integer;
negFlag: boolean;

begin
writeln('Введите элементы массива:');

negFlag := false;
min := 9999;
firstNeg := 0;

for i := 1 to n do
begin
readln(arr[i]);

end;

if negFlag then
sum := min + firstNeg
else
writeln('Отрицательных элементов нет');

writeln('Сумма минимального и первого отрицательного элемента: ', sum);
end.