program oken; uses crt; var a: array [1..100] of integer; n,i,s: 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 10=0) and (a[i]>50) then s:=s+a[i]; end; writeln('Tong cac phan tu lon hon 50 va chia het cho 10: ',s); readln; end.
