"составьте программу вычисления суммы элементов от первого отрицательного и до конца"pascal abc.

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

program SumElements;

var
arr: array[1..10] of integer;
i, sum, firstNegIndex: integer;

begin
sum := 0;
firstNegIndex := 0;

writeln('Enter 10 integer numbers:');

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

end;

if firstNegIndex <> 0 then
begin
for i := firstNegIndex to 10 do
sum := sum + arr[i];

end
else
writeln('No negative numbers found in the array.');
end.