编程论坛 → 闲聊灌水

pascal 语言

lzm123123 发布于 2014-07-16 10:55， 642 次点击

读入6个数，打印出其中的最大数和最小数，两个数之间隔一空格。这个题目怎么做啊？？

9 回复

Artless2014-07-16 10:58

https://bbs.bccn.net/announcement.php?id=43#43

love云彩2014-07-16 11:00

居然跑来这里发作业贴，好神奇。。。。。

tlliqi2014-07-16 11:18

作业贴

hu9jj2014-07-16 13:56

也许是病急乱投医吧

wp2319572014-07-16 15:08

话说 Pascal中和c的scanf的对应语句我真的忘记了哦

外部三电铃2014-07-16 22:13

很老的语言了吧

Fremmed2014-12-18 17:33

急求y=x*3 怎么用PASCAL语言写

笨闹钟2015-02-22 20:07

y:=x*3；

#10

wp2319572015-02-25 10:00

程序代码：

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  i:integer;
  p:array[1..6] of integer;
  min:integer;
  max:integer;
begin
  writeln('请输入数据:');
  for i:=1 to 6 do
  begin
    readln(p[i]);
  end;
  min:=p[1];
  max:=p[1];
  for i:=1 to 6 do
  begin
    if(p[i]<min) then min:=p[i];
    if(p[i]>max) then max:=p[i];
  end;
  write('最大:');
  writeln(max);
  write('最小:');
  writeln(min);
end.