Bài `1`

Program Hotboy;

Uses crt;

Var i,n:integer;

S:longint;

A:array[1..50] of real;

Begin

clrscr;

S:=0;

 Write('nhap n ');

 Readln(n);

 For i:=1 to n do

Begin

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

For i:=1 to n do

If A[i] > 0 then S:=S+A[i];

Write('Tong thuc duong la',S);

Readln

End.

Bài `2`

Program Hotboy;

Uses crt;

Var i,n:integer;

S:longint;

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

Begin

clrscr;

S:=0;

 Write('nhap n nguyen duong tu ban phim ');

 Readln(n);

 For i:=1 to n do

Begin

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

End;

For i:=1 to n do

If A[i] <0 then inc(s);

Write('co' ,s,' so nguyen am');

Readln

End.

1.

#include <iostream>
using namespace std;
int main(){
    int n,d=0;
    cin>>n;
    float arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
        if(arr[i]>0){
            d++;
        }
    }
    cout<<"Trong mang co: "<<d<<" so thuc duong"<<endl;
    for(int i=0;i<n;i++){
        if(arr[i]>0){
            cout<<arr[i]<<" ";
        }
    }
    //samon247
    return 0;
}

2.

#include <iostream>
using namespace std;
int main(){
    int n,d=0;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
        if(arr[i]<0){
            d++;
        }
    }
    cout<<"Trong mang co: "<<d<<" so nguyen am"<<endl;
    for(int i=0;i<n;i++){
        if(arr[i]<0){
            cout<<arr[i]<<" ";
        }
    }
    //samon247
    return 0;
}