Tin học viet chuong trinh trong pascal

[DieuGigi]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

N=7 day 3,-2,9,-40,7,32,-8
so phan tu am=3
so phan tu duong=4

 

[0toanđnn]

Var n,i,d1,d2:integer;
a:array[1 .. 10000] of integer;
Begin
readln(n);
d1:=0;
d2:=0;
For i:=1 to n do
Begin
read(a);
if (a<0) d1:=d1+1;
if (a>0) d2:=d2+1;
End;
writeln('so phan tu am=',d1);
write('so phan tu duong=',d2);
End.


CHÚC BẠN HỌC TỐT !!!!!