Tính tổng bình phương các số âm trong mảng N phần tử

0 bình luận về “Tính tổng bình phương các số âm trong mảng N phần tử”

1. 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

   Bình luận

2. #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;
   }

   Bình luận