Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

N,i,S:Integer;

Begin

{Nhập mảng}

Write(‘Nhap N=’); Readln(N);

For i:=1 To N Do

Begin

Write(‘A[‘,i,’]=’); Readln(A[i]);

End;

{Tính tổng}

S:=0; For i:=1 To N Do

If A[i]<0 Then S:=S+A[i]*A[i];

{In kết quả ra màn hình}

Writeln(‘S= ’, S);

Readln;

End.

#NOCOPY

@huyenthaikhanh09

#include <iostream>
using namespace std;
int main()
{
    int n,tt=0;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
        if(arr[i]<0){
            tt+=arr[i]*arr[i];
        }
    }
    cout<<tt;
    //samon247
    return 0;
}