Var A: array[1..150] of integer;

      i, n, dem: integer;

      tong: longint;

Begin

   write('Nhap n: '); readln(n);

   dem:=0; tong:=0;

   For i:=1 to n do

      Begin

         readln(A[i]);

         if A[i]>0 then

            Begin

               dem:=dem+1;

               tong:=tong+A[i];

            End;

      End;

   writeln('So so duong la: ', dem);

   writeln('Tong so duong la: ', tong);

   For i:=1 to n do

      if A[i]<0 then

         Begin

            writeln('So am dau tien la: ', A[i]);

            Break;

         End;

   writeln('Chi so cua so am dau tien la: ', i);

   readln

End.

a,

#include<iostream>

using namespace std;

int main(){

int A[150],n,dem,S;

cin>>n;

for(int i=1;i<=n;i++){

cin>>A[i];

if(A[i]>=0){

dem++;

S+=A[i];

}

}

cout<<S<<" "<<dem;

}

b,

#include<iostream>

using namespace std;

int main(){

int A[150],n;

cin>>n;

for(int i=1;i<=n;i++){

cin>>A[i];

}

for(int i=1;i<=n;i++){

if(A[i]<0){

cout<<A[i]<<" "<<i;

return 0;

}

}

}