帕斯卡尔档案：我要如何找到从文件整数的MAX和MIN出现？

Question

我是新来Pascal和具有下列整数一个sample.txt的文件：

1 2 
2 1
1 3
3 1
1 4

我如何找到与Pascal语言的最小和最大出现该文件的整数？在上面的例子中，最大的出现将是整数1（出现5次）和最小将是4（出现一次）。

我明白我必须打开该文件并阅读价值和这么多，到目前为止我已经想通了。有没有执行此较短的方法吗？

var
  V1, V2, V3, V4, V5, V6, V7, V8, V9, V10: Integer; 
begin 
  Assign(F, 'sample.txt');
  Reset(F);
  read(F, V1);  
  read(F, V2);
  read(F, V3);
  read(F, V4);
  read(F, V5);
  read(F, V6);
  read(F, V7);
  read(F, V8);
  read(F, V9);
  read(F, V10);

  writeln('Max Occurrence')
  writeln('Min Occurrence')

  Close(F);
  writeln; 

提前致谢！

Answer 1

基本上

 writeln('Max Occurrence',max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))))))
 writeln('min Occurrence',min(v1,min(v2,min(v3,min(v4,min(v5,min(v6,min(v7,min(v8,min(v9,v10)))))))))));

给予或采取“）”，但老师可能不接受，作为无环路的解决方案，因为它不与输入数量规模。

其原理是，最终的最大值是最大的临时最高+下一个数据项的