1.

program phuongt;
uses crt;
  var A: array[1..500] of integer;
        i, n, s: integer;
begin
      clrscr;
      write('Nhap n = '); readln(n);
      s:=0;
      for i:=1 to n do
      begin
              write('A[', i, '] = '); readln(A[i]);
              if A[i] mod 5 = 0 then s:=s+A[i];
      end;
      write('Tong = ', s);
      readln
end.

2.

program phuongt;
uses crt;
  var A: array[1..500] of integer;
        i, n, max, min: integer;
        s: real;
begin
      clrscr;
      write('Nhap n = '); readln(n);
      s:=0;
      for i:=1 to n do
      begin
              write('A[', i, '] = '); readln(A[i]);
      end;
      max:=A[1];
      min:=A[1];
      for i:=1 to n do
      begin
               if max<A[i] then max:=A[i];
               if min>A[i] then min:=A[i];
      end;
      s:=(max+min)/2;
      write('TBC = ', s:2:1);
      readln
end.

Câu 6:
program dev;
uses crt;
var a:array[1..100] of integer;
      n,i,s:integer;
begin 
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('a[',i,']: '); readln(a[i]);
            end;
      for i:=1 to n do if a[i] mod 5=0 then s:=s+a[i];
      write('Tong cac phan tu chia het cho 5: ',s);
      readln;
end.
Câu 7:
program dev;
uses crt;
var a:array[1..100] of integer;
      n,i,s,max,min:integer;
begin 
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      s:=0;
      for i:=1 to n do
            begin
                  write('a[',i,']: '); readln(a[i]);
            end;
      max:=a[1];min:=a[1];
      for i:=2 to n do
            begin
                  if a[i]>max then max:=a[i];
                  if a[i]<min then min:=a[i];
            end;
      s:=max+min;
      write('Trung binh cong cua GTLN & GTNN: ',s/2:0:2);
      readln;
end.