Include C:\TASM\INCLUDE\Lib1.asm

.Model small

.Stack 100h

.Data

Title1 db 13,10,'| CHUONG TRINH |$'

Title2 db 13,10,'| TINH THANH PHAN AM DUONG CUA 1 DAY SO NGUYEN |$'

Title3 db 13,10,' ----------------------------------------------$'

M1 db 13,10,'>>Hay vao thanh phan so luong cua day : $'

M2 db 13,10,'a[$'

M3 db '] = $'

M4 db 13,10,'So luong cac thanh phan am cua day so nguyen la : $'

M5 db 13,10,'So luong cac thanh phan duong cua day so nguyen la : $'

M6 db 13,10,'Tiep tuc chuong trinh ( C/K ) ? $'

M7 db 13,10,'Chuc nang khong ton tai . Moi chon lai !$'

Array dw 100 dup(?)

.Code

Main :

mov ax,@data

mov ds,ax

;clrscr

HienString Title1

HienString Title2

HienString Title3

HienString M1

call Vao_So_N

cmp ax,1

jb Hoi

mov dx,ax ; dx = so luong

xor si,si ; si = STT

mov cx,ax

lea bx , Array

Nhap:

HienString M2

mov ax,si

call Hien_So_N

HienString M3

call Vao_So_N

mov [bx],ax

inc si

add bx,2

loop Nhap

HienString M4

lea bx , Array

mov cx,dx

xor ax,ax

mov si,dx

XuLy:

mov dx,[bx]

and dx,dx

jns SoDuong

inc ax

SoDuong :

add bx,2

loop XuLy

call Hien_So_N

HienString M5

sub si,ax

mov ax,si

call Hien_So_N

Hoi :

HienString M6

mov ah,1

int 21h

or al,20h

cmp al,'c'

jz Nhay

cmp al,'k'

jz Finish

HienString M7

jmp Hoi

Nhay:

jmp Main

Finish:

mov ah,4ch

int 21h

Include C:\TASM\INCLUDE\Lib2.asm

End Main

2a:

.Model small

.Data

Extrn _Array:DWORD,_n:WORD

.Code

Public @AmDuong$qv

@AmDuong$qv PROC

mov bx,OFFSET _Array

mov ax,SEG _Array

mov es,ax

mov cx,_n

xor ax,ax

XuLy:

mov dx,es:[bx]

and dx,dx

jns SoDuong

inc ax

SoDuong :

add bx,2

loop XuLy

ret

@AmDuong$qv Endp

End

2c:

#include<iostream.h>

#include<conio.h>

int n;

int Array[100];

extern int AmDuong();

void main(void)

{

PS :

clrscr();

char answer;

int i;

cout<<">>Hay vao thanh phan so luong cua day : ";

cin>>n;

for(i=0;i<n;i++)

{

cout<<"a["<<i<<"] = ";

cin>>Array[i];

}

cout<<"So luong cac thanh phan am cua day so nguyen : "<<AmDuong();

cout<<"

So luong cac thanh phan duong cua day so nguyen : "<<n-AmDuong();

cout<<"

Tiep tuc chuong trinh (C/K) ? ";

answer = getch();

if(answer=='c')

goto PS;

}

3:

Include C:\TASM\INCLUDE\Lib1.asm

.Model small

.Stack 100h

.Data

M1 db 13,10,'So luong o mem la : $'

Zero db '0$'

M2 db 13,10,'FPU : $'

Yes db 'Co$'

No db 'Khong$'

.Code

Main :

mov ax,@data

mov ds,ax

HienString M1

int 11h

mov bl,al

shr al,1

jc TonTai

HienString Zero

jmp FPU

TonTai :

mov cl,5

shr al,cl

inc al

add al,30h

mov ah,0eh

int 10h

FPU :

HienString M2

mov cl,2

shr bl,cl

jc Co

HienString No

jmp Finish

Co :

HienString Yes

Finish :

mov ah,1

int 21h

mov ah,4ch

int 21h

Include C:\TASM\INCLUDE\Lib2.asm

End Main