Mình chỉ có thể viết chương trình thôi thôi, phần mô tả thuật toán thì mình chịu rồi. Xin lỗi. 

P/s: ĐỀ THI CỦA BẠN DỄ QUÁ. CỦA TRƯỜNG MÌNH KHÓ HƠN NHIỀU.

CT1: 

PROGRAM QLINKVN;

USES CRT;

VAR A,B,C,MAX: INTEGER;

BEGIN

CLRSCR; 

MAX:=A; 

IF (MAX<B) THEN MAX:=B;

IF (MAX<C) THEN MAX:=C;

WRITELN('SO LON NHAT LA ',MAX)

READLN;

END.

CT2: 

PROGRAM QLINKVN;

USES CRT;

VAR I,N,SOLUONG: INTEGER;

BEGIN

CLRSCR;

WRITELN('Nhap gia tri cua N: '); READLN(N); 

SOLUONG:=0; 

FOR I:=1 TO N DO IF N MOD I = O THEN SOLUONG:=SOLUONG+1; 

IF SOLUONG=2 THEN WRITELN('Day la so nguyen to') ELSE WRITELN('Day khong la so nguyen to');

READLN;

END.

Câu 1:

B1: nhập số lượng phần tử

B2: nhập từng phần tử

B3: max←a[1]; min←a[1]

B4: nếu a[i]>max thì max←a[i]

       nếu a[i]<min thì min←a[i]

B5: in ra max, min

Câu 2:

Ý tưởng:

B1: nhập n

B2: đặt i←2

B3: while(n>1)and(n mod i<>0) do i←i+1

B4: nếu i=n thì in ra n la so nguyen to

       ngược lại in ra n khong phai la so nguyen to

Chương trình:

uses crt;
var n,i:longint;
begin
clrscr;
   write('Nhap n: '); readln(n);
   i:=2;
   while(n>1)and(n mod i<>0)do inc(i);
   if i=n then writeln(n,' la so nguyen to')
   else writeln(n,' khong phai la so nguyen to');
readln
end.