program bt ; uses crt ; var a: array [1..100] of integer; n,s,i: integer; begin write('Nhap so phan tu cua mang:'); 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; writeln('Tong cac phan tu chia het cho 5: ',s); readln; end.
program oken; uses crt; var a: array [1..100] of longint; n,s,i: longint; begin clrscr; write('Nhap so phan tu cua mang: '); 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; writeln('Tong cac phan tu chia het cho 5: ',s); readln; end.
