Program Mang;
Uses crt;
Var A: array[1..10000] of longint;
    n, i, res, cnt: longint;

Begin
        Clrscr;
        Write('Nhap so luong phan tu: '); Readln(n);

        res:=0; cnt:=0;

        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
                If A[i] mod 5 = 0 then
                Begin
                        res := res + A[i];
                        inc(cnt);
                End;
        End;

        Writeln('Tong cac so chia het cho 5: ',res);
        Write('Co ',cnt,' so chia het cho 5');

        Readln
End.

uses  crt;
var a:array[1..100] of integer;
n,i,t,d : integer;
begin
    clrscr;
    read(n);
    for i:=1 to n do
    read(a[i]);

if a[i] mod 5=0 then

t:=t+a[i];

d:=d+1;

writeln('tổng các phần tử chia hết cho 5 :',t);

writeln('số phần tử chia hết cho 5 là:',d);

readln;
end.