var numbers: array[1..10] of Integer; i, sum: Integer;
begin sum := 0;
// Вводим последовательность чисел writeln('Введите последовательность чисел:'); for i := 1 to 10 do begin write('numbers[', i, '] = '); readln(numbers[i]); end;
// Считаем сумму отрицательных элементов for i := 1 to 10 do begin if numbers[i] < 0 then begin sum := sum + numbers[i]; end; end;
// Выводим результат writeln('Сумма отрицательных элементов: ', sum);
program SumOfNegativeNumbers;
var
numbers: array[1..10] of Integer;
i, sum: Integer;
begin
sum := 0;
// Вводим последовательность чисел
writeln('Введите последовательность чисел:');
for i := 1 to 10 do
begin
write('numbers[', i, '] = ');
readln(numbers[i]);
end;
// Считаем сумму отрицательных элементов
for i := 1 to 10 do
begin
if numbers[i] < 0 then
begin
sum := sum + numbers[i];
end;
end;
// Выводим результат
writeln('Сумма отрицательных элементов: ', sum);
end.