program h247;
var a:array[1..1000] of integer;
    i, n, tong, dem: integer;
begin
  write('Nhap n '); readln(n);
  for i:=1 to n do 
  begin
  write('Nhap a[',i,'] '); 
  readln(a[i]);
  end;
  {a)}

  write('Cac phan tu co gia tri am la ');
  for i:=1 to n do
  if a[i] < 0 then  
  begin
  dem:=dem+1;

  write(a[i], ' ');

  end;

  write('Co ', dem, ' so co gia tri am') ;
  {b)}
  for i:=1 to n do  
  if (a[i] > 100) and (a[i] mod 5 = 0) then tong:=tong+a[i];
  write('Tong cac so lon hon 100 va chia het cho 5 la ', tong);
  readln;
end.

program ct

uses crt;

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

      i,N,d:integer;

      S:longint;

begin clrscr;

   write('Nhap so nguyen duong N: '); readln(N);

   for i:=1 to N do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0;

   for i:=1 to N do

     begin

        if A[i]<0 then inc(d);

        if (A[i]>100) and (A[i] mod 5=0) then S:=S+i;

     end;

   writeln('Co ',d,' phan tu co gia tri am: ');

   for i:=1 to n do

     if A[i]<0 then write(A[i]:3);

   writeln('Tong cac phan tu lon hon 100 va chia het cho 5 la: 'S);

readln;

end.

Học tốt!