Câu 2:

program oken;
uses crt;
var s: string;
    i,dem: byte;
begin
    clrscr;
    write('Nhap xau: '); readln(s);
    for i:=1 to length(s) do
        if s[i]= 'A' then   
            dem:=dem+1;
    writeln('So luong ky tu A co trong xau: ',dem);
    readln;
end.

Câu 3:

program oken;
uses crt;
var a: array [1..10000] of longint;
    n,i,dem,s: longint;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    dem:=0; s:=0;
    for i:=1 to n do
        begin
            write('A[',i,']: '); readln(a[i]);
            if (a[i]<0) then
                dem:=dem+1;
            if (a[i] mod 5=0) and (a[i]>100) then
                s:=s+a[i];
        end;
    writeln('So phan tu co gia tri am: ',dem);
    writeln('Tong cac phan tu lon hon 100 va chia het cho 5: ',s);
    readln;
end.

C2:

#include <bits/stdc++.h>
using namespace std;
int main(){
    string s;
    int a=0;
    getline(cin,s);
    for(int i=0;i<s.size();i++){
        if(s[i]=='A'){
            a++;
        }
    }
    cout<<a;
    //samon247
    return 0;
}

C3:

#include <bits/stdc++.h>
using namespace std;
int main(){
    int n,a=0,total;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
    }
    cout<<"Cac phan tu co gia tri am: ";
    for(int i=0;i<n;i++){
        if(arr[i]<0){
            cout<<arr[i]<<" ";
            a++;
        }
        if(arr[i]>100&&arr[i]%5==0){
            total+=arr[i];
        }
    }
    cout<<"\nSo phan tu co gia tri am: "<<a;
    cout<<"\nTong cac phan tu co gia tri lon hon 100 va chia het cho 5: "<<total;
    //samon247
    return 0;
}