$C1$

program C1;

uses crt;

var A:array [1..500] of integer;

      n,i,max: integer;

Begin

         clrscr;

         write('Nhap so phan tu: ');

         max:=1;

         for i:=1 to n do

         begin

                  write('A[',i,']'='); readln(A[i]);

                  if max<A[i] then max:=A[i]l

         end;

         write('Gia tri lon nhat: ',max);

         readln

End.

$C2$

program C2;

uses crt;

var A:array [1..500] of integer;

      n,i,min: integer;

Begin

         clrscr;

         write('Nhap so phan tu: ');

         min:=1;

         for i:=1 to n do

         begin

                  write('A[',i,']'='); readln(A[i]);

                  if min>A[i] then min:=A[i]l

         end;

         write('Gia tri nho nhat: ',min);

         readln

End.

1.
program cau1;
uses crt ;
var i,n,Max:integer;
   A:array [1..500] of integer;
Begin
writeln('nhap so phan tu ');
readln(n);
For i:=1 to n do
begin
writeln('nhap gia tri thu ',i);readln(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if A[i]> Max then Max:=A[i];
write('gia tri lon nhat la:',A[i]);
readln
end.
1.
program cau2;
uses crt ;
var i,n,Min:integer;
   A:array [1..500] of integer;
Begin
writeln('nhap so phan tu ');
readln(n);
For i:=1 to n do
begin
writeln('nhap gia tri thu ',i);readln(A[i]);
end;
Min:=A[1];
for i:=2 to n do
if A[i]< Min then Min:=A[i];
write('gia tri nho nhat la:',A[i]);
readln
end.