如题
Pascal输入十个数,打印出最大和最小的数
Pascal输入十个数,打印出最大和最小的数
答案:4 悬赏:80 手机版
解决时间 2021-02-18 22:48
- 提问者网友：我是女神我骄傲
- 2021-02-18 13:09
最佳答案
- 五星知识达人网友：老鼠爱大米
- 2021-02-18 13:31
程序如下,DELPHI下调试通过，应该适应各种PASCAL：
{$apptype console}
program test;
var x,max,min,i:integer;
begin
write('输入10个数:');
read(x);max:=x;min:=x;
for i:=1 to 9 do
begin
read(x);
if x>max then max:=x;
if x
writeln('最大',max);
writeln('最小',min);
end.
{$apptype console}
program test;
var x,max,min,i:integer;
begin
write('输入10个数:');
read(x);max:=x;min:=x;
for i:=1 to 9 do
begin
read(x);
if x>max then max:=x;
if x
writeln('最大',max);
writeln('最小',min);
end.
全部回答
- 1楼网友：十鸦
- 2021-02-18 15:02
现写的，没有调试，有错误就请楼主改正吧。
var x,max,min,i:integer;
begin
write('Input 10 numbers::');
for i:=1 to 10 do begin
read(x);
if x>max then max:=x;
if x