求n个数的最大值和最小值pascal

无意翻到了年代久远的小学时写的结题报告，还是没有转c++的时候的,咳咳咳，题目很简单可是那是还是很用心的

【入门】求n个数的最大值和最小值

题意分析：

这道题的题目简洁明了，就是任意输入n个整数，把它们的最大值，最小值求出来。

解题思路：

用for语句，可能有人用数组做，其实不用，可以一边读入一边判断。

算法分析：

用for语句，直接读入一排变量，然后判断这个数是不是大于目前找到的最大数max，或是不是小于目前找到的最小数min，如果是，就把max或min的数重置成当前的数。

注意：min的初始值要附成maxlongint。

答案参考：

var

n,i,m,max,min:longint;

begin