求n个数的最大值和最小值用Pascal试题描述任意输入n个整数,把它们的最大值,最小值求出来.输入要求输入只有一行,包括一个整数n(1
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/21 23:40:21
求n个数的最大值和最小值用Pascal试题描述任意输入n个整数,把它们的最大值,最小值求出来.输入要求输入只有一行,包括一个整数n(1
求n个数的最大值和最小值用Pascal
试题描述
任意输入n个整数,把它们的最大值,最小值求出来.
输入要求
输入只有一行,包括一个整数n(1
求n个数的最大值和最小值用Pascal试题描述任意输入n个整数,把它们的最大值,最小值求出来.输入要求输入只有一行,包括一个整数n(1
var
n,min,max,g,i:integer;
begin
read(n);
min:=-maxint;max:=maxint;
for i:=1 to n do begin
read(g);
if min>g then min:=g;
if max
program help;
var i,n,min,max,k:longint;
begin
min:=maxlongint;
max:=0;
read(n);
for i:=1 to n do begin
read(k);
if k>max then max:=k;
if k
writeln(max,' 'min);
end.
var
a:array:[1..100] of integer;
n,max,min,i:integer;
begin
read(n);
for i:=1 to n do read(a[n]);
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if maxif min>a[i] then min:=a[i];
end;
writeln(max,min);
end.