- Chương trình 1 :

uses crt;

var b : array [1 .. 100] of integer;

    i, n, m, d : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

d := 0;

for i := 1 to n do

    begin

        write('Nhap so thu ', i ,' = ');

        readln(b[i]);

        if b[i] mod 5 = 0 then d := d + 1;

    end;

m := b[1];

for i := 1 to n do

    if m < b[i] then m := b[i];

writeln('So lon nhat = ', m);

writeln('Co ', d ,' so chia het cho 5');

readln

end.

- Chương trình 2 :

uses crt;

var b : array [1 .. 100] of integer;

    i, n, m, s : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

s := 0;

for i := 1 to n do

    begin

        write('Nhap so thu ', i ,' = ');

        readln(b[i]);

        if b[i] mod 2 <> 0 then s := s + b[i];

    end;

m := b[1];

for i := 1 to n do

    if m > b[i] then m := b[i];

writeln('So nho nhat = ', m);

writeln('Tong cac so le = ', s);

readln

end.

CT 1:

#include <bits/stdc++.h>
using namespace std;
int a[10000005];
int main() {
    long long n,M=0,d=0;
    cin>>n;
    for(int i=1;i<=n;i++)
    {
        cin>>a[i];
        if(a[i] > M) M=a[i];
        if(a[i]%5==0) d++;
    }
    cout<<M<<" "<<d;
}

CT2:

#include <bits/stdc++.h>
using namespace std;
int a[10000005];
int main() {
    long long n,d=0;
    cin>>n;
    for(int i=1;i<=n;i++)
    {
        cin>>a[i];
        if(a[i]%2!=0) d+=a[i];
    }
    sort(a+1,a+1+n);
    cout<<a[1]<<" "<<d;
}