设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › pascal 让用户输入5个数，求最大数和最小数 ...

pascal 让用户输入5个数，求最大数和最小数

[复制链接]
查看11 | 回复1 | 2011-4-28 22:55:20 | 显示全部楼层 |阅读模式
var i,max,min:longint;
a:array[1..5]of longint;begin
for i:=1 to 5 do begin
read(a);
end;
for i:=1 to 5 do begin
if a>max then max:=a;end; min:=a[1];
for i:=1 to 5 do begin
if a<minthen min:=a;end;
writeln(max,' ',min);end.楼主，临时写的，有问题找我.
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行