Program bai_tap;

Uses crt;

Var

 A:array[1..20] of integer;

 n,i,T: Integer;

begin

 Clrscr;

 Repeat

 write('Nhap n= ');

Readln(n);

Until (n<=20);

For i:=1 to n do

 Begin

 Write('A[',i,']= ');

Readln(A[i]);

End;

T:=0;

For i:=1 to n do

If A[i] < 0 then T:=T+A[i];

Write(T);

Readln;

end.

 

#include <iostream>
using namespace std;
int n,a[20],t;
int main(){
    cin >> n;
    for (int i=0; i<n; i++){
        cin >> a[i];
        if (a[i]<0) t=t+a[i];
    }
    cout << t;
}

$\color{green}{\text{Cần code Python, C#, Java, JavaScript thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$