Uses crt;
Var A:array[1..30] of longint;
    i,s,d,t: longint;
    n:byte;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        s:=0;
        For i:=1 to n do s:=s+A[i];
        Write('Tong day so la: ',s);
        Writeln;

        Write('Cac so khong am: ');
        For i:=1 to n do
                If A[i]>=0 then Write(A[i]:5);
        Writeln;

        d:=0; t:=0;
        For i:=1 to n do
                If (A[i] mod 2=0) and (A[i] mod 5=0) then
                Begin
                        inc(d);
                        t:=t+A[i];
                End;
        Write('Co ',d,' so la boi cua 2 va 5');
        Writeln;
        Write('Tong cac so do la: ',t);


        Readln
End.

program ct;

uses crt;

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

      i,n,d:integer;

      S,Sb:longint;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap A[',i,']: '); readln(A[i]);

     end;

   for i:=1 to n do

     begin

        S:=S+A[i];

        if (A[i] mod 2=0) and (A[i] mod 5=0) then

          begin

             inc(d);

             Sb:=Sb+A[i];

           end;

     end;

   writeln('Tong cua day so do la: ',S);

   writeln('Cac so ko am la: ');

   for i:=1 to n do

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

   writeln;

   write('Co ',d,' so la boi cua 2 va 5');

   writeln('Tong la: ',Sb);

readln;

end.

Học tốt!