亲，您未登录哦！ 登录 | 注册
首页  |  社区  |  工具箱  |  代码库  |  博客  |  招聘  |  文章  |  新闻  |  下载  |  读书
回 帖 发 新 帖 刷新版面

主题：十万火急的一题,必看!

梦幻西游 [专家分：0] 发布于 2005-04-03 12:27:00

[em10][em10][em10][em10][em10][em10][em10][em10][em10][em10][em10][em10]
输入N个数,求大于0的数的个数,小于0的数的个数,等于0的数的个数.
快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快快
本帖地址：  http://bbs.pfan.cn/post/68819.html

回复列表 （共3个回复）

沙发

梦幻西游 [专家分：0] 发布于 2005-04-03 12:28:00

快

板凳

天才少年987987987 [专家分：1420] 发布于 2005-04-03 17:31:00

这还用做！！！！！！！！！！！！
用个case语句不就行了！！！！！！

3 楼

xuzhenyi [专家分：850] 发布于 2005-04-04 08:56:00

var j,k,n,l,i:longint;
a:array[1..n] of longint
begin
readln(n);
j:=0;
k:=0;
l:=0;
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>0 then j:=j+1
else
if a[i]=0 then k:=k+1
else
l:=l+1;
writeln('>0',j,'  ','=0',k,'  ','<0',l);
readln;
end.

我来回复

您尚未登录，请登录后再回复。点此登录或注册

程序员工具箱 new

  • 更多工具

    • 代码片段

  • 模拟键盘（不可按）
  • 碰撞的唐三
  • 精彩奥运热点赛事的实时采集
  • 获取天气动态信息
  • 文件查找
  • python大数据抓取京东电脑销量数据
  • 爬虫技术不仅仅支持数据采集
  • 抓取脉脉APP上的职业信息
  • 爬虫中多线程的运用
  • 四则运算以及一元二次方程
  • 欢迎来共享你的NB代码

    • 本版新帖

  • PASCAL语言讨论区开版了！！
  • 贪吃蛇
  • TP7下计算圆周率至小数点后10000位
  • 幻方构造程序(能打100阶以内的幻方)
  • 作图模式下显示汉字
  • 在作图模式下显示16色PCX图像
  • TP7下显示256色的BMP文件
  • NOI及其分区联赛介绍
  • 分区联赛初赛经验谈
  • 分区联赛复赛经验谈
  • 第八届全国青少年信息学奥林匹克联赛(NOIP2002)试题
  • NOIP2002复赛第一题解法
  • 1995复赛题求助！！！
  • 推荐pascal论坛（大家都来看看）
  • 八女皇问题