Bài 1:

program Min;
uses crt;
var A:array[1..100] of longint;
    S,i:longint;
begin
   clrscr;
   for i:=1 to 100 do 
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   for i:=1 to 100 do
   if A[i]>0 then S:=S+A[i];
   readln
end.

Bài 2:

program Min;
uses crt;
var A:array[1..100] of longint;
    i,n,max:longint;
begin
   clrscr;
   write('Nhap n (n<=100): '); readln(n);
   for i:=1 to n do 
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   max:=A[1];
   for i:=2 to n do
   if max<A[i] then max:=A[i];
   write('Phan tu lon nhat la: ',max);
   readln
end.

Bài 2:

Var a:array[1..100] of integer;

      i,n,max:integer;

      begin

        write('nhap so phan tu cua mang:');readln(n);

        for i:=1 to n do

        begin

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

         end;

         max:=a[1];  

         for i:=2 to n do

         if a[i]>max then max:=a[i];

         writeln('phan tu lon nhat:',max);

      readln

      end.