Как найти сумму модулей отрицательных элементов

const N = 10;

var

    arr: array[1..N] of integer;

    i,neg: byte;

    sum: integer;

begin

    randomize;

    for i:=1 to N do begin

        arr[i] := random(30)-5;

        write(arr[i]:4);

    end;

    writeln;

    
    neg := 0; // ищем первый отрицательный

    for i:=1 to N do 

        if arr[i] < 0 then begin

            neg := i;

            break;

        end;



  


                       
  




    
    if neg = 0 then

        writeln('Отрицательных элементов нет')

    else begin

        writeln('Номер первого отрицательного: ', neg);

        sum := 0; // считаем сумму модулей после первого отрицательного

        for i:=neg+1 to N do

            sum := sum + abs(arr[i]);

        writeln('Сумма модулей элементов после него: ', sum);

    end;

end.

  17   4  11   9  -5  -2  22   3   8   0

Номер первого отрицательного: 5

Сумма модулей элементов после него: 35

#include < stdio.h>

#define N 10

main() {

    int arr[N], sum;

    char i,neg;

    srand(time(NULL));

    for (i=0; i< N; i++) {

        arr[i] = rand()%30 - 5;

        printf("%d ", arr[i]);

    }

    printf("n");

    
    neg = -1;

    for (i=0; i < N; i++) {

        if (arr[i] < 0) {

            neg = i;

            break;

        }

    }


    if (neg == -1) printf("нет отрицательныхn");

    else {

        printf("номер I-го отриц.: %dn", neg+1);

        sum = 0;

        for (i=neg+1; i< N; i++) sum += abs(arr[i]);

        printf("сумма: %dn", sum);

    }

}

from random import random

N = 10

arr = []

for i in range(N):

    arr.append(int(random() * 30) - 5)

print(arr)


neg = -1

for i in range(N):

    if arr[i] < 0:

        neg = i

        break


if neg == -1:

    print('Отрицательных нет')

else:

    print('Номер первого отриц.:', neg+1)

    s = 0

    for i in range(neg+1,N):

        s += abs(arr[i])

    print('Сумма: ', s)



  


                       
  

алг сумма после перв отриц

нач

    цел N = 10

    цел таб arr[1:N]

    цел i,neg,sum

    нц для i от 1 до N

        arr[i] := irand(-5,30)

        вывод arr[i]:4

    кц

    вывод нс


    neg := 0

    нц для i от 1 до N

        если arr[i] < 0 то

            neg := i

            выход

        все

    кц


    если neg=0 то

        вывод "отриц. нет"

      иначе

        вывод "первый отриц.: ", neg, нс

        sum := 0

        нц для i от neg+1 до N

            sum := sum + iabs(arr[i])

        кц

        вывод "сумма модулей после = ", sum

    все

кон

N = 10

dim arr(N)

for i=0 to N-1

    arr[i] = int(rand*30) - 5

    print arr[i] + "  ";

next i

print


neg=-1

for i=N-1 to 0 step -1

    if arr[i] < 0 then

        neg = i

    endif

next i


if neg = -1 then

    print "Нет отриц."

else

    print "Номер перв. отриц.: " + (neg+1)

    sum = 0

    for i=neg+1 to N-1

        sum = sum + abs(arr[i])

    next i

    print sum

endif

В языке basic256 нет команды break. Поэтому поиск первого отрицательного элемента массива осуществляется перебором массива с конца.