1.    program kookie;

       uses crt;

       const Nmax = 100;

       type

                ArrInt = array |0..99] of integer;

       var

                A: ArrInt;

                a, i, S, P, s, p: integer;

       begin

       clrscr;

        write(' so phan tu cua mang:');

        readln(N);

       for i:=0 to 99 do

               begin

                         write(' phan tu thu i :');

                         readln(A|I]);

                end;

        p:=A|0];

        P:=0;

        for i:=1 to 99 do

        if A|1]>p then

        begin

       s:=A|i]

         S:=i;

         p:=A|i-1];

P:=i-1;

end;

writeln('so lon nhat la:,'s);

writeln('chi so lon nhat la:,'S);

writeln('so nho nhat la:,'p);

writeln('chi so lon nhat la:,'P);

readln

end.

2.program Yunki;

uses crt;

const Nmax = 50;

var

a: array|20..100] of integer;

i, d ,t, N: integer;

begin

clrscr;

write(' nhap phan tu cua day la :');

readln(N);

for i:=20 to 100 do

d:=0;

if a|i] mod 2 = 0 then

d:=d+1;

begin

write('a|',i,']=');

readln(a|i]);

end;

writeln('so phan tu chan la:,'d);

for i:=20 to 100 do

if a|i]<a|i+1] then

begin

a|i]:=t;

t:=a|i+1];

a|i]:=a|i+1];

end;

writeln('day duoc sap xep la:');

for i:=20 to 100 do

write(a|i]/4);

readln

end.

Câu 1:

uses crt;
var b:array[1..100] of longint;
        m,i,max,min:longint;
begin
        clrscr;
        write('Nhap so luong phan tu (m<=100): '); readln(m);
        for i:=1 to m do
                begin
                        write('Nhap phan tu thu ',i,': '); readln(b[i]);
                end;
        max:=b[1]; min:=b[1];
        for i:=2 to m do 
                begin
                        if b[i]>max then max:=b[i];
                        if b[i]<min then min:=b[i];
                end;
        writeln('Max: ',max);
        write('Min: ',min);
        readln;
end.

Câu 2:

uses crt;
var a:array[1..50] of longint;
        n,i,j,tg,d:longint;
begin
        clrscr;
        write('Nhap so luong phan tu (N<=50): '); readln(n);
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': '); readln(a[i]);
                        if a[i] mod 2=0 then inc(d);
                end;
        writeln('So luong phan tu chan: ',d);
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i]<a[j] then
                                begin
                                        tg:=a[i];
                                        a[i]:=a[j];
                                        a[j]:=tg;
                                end;
        write('Day giam dan: ');
        for i:=1 to n do write(a[i],' ');
        readln;
end.