用Pascal写程序（输入一个数组设为n,输出其中max为a,min为b）

在Pascal中编写一个简单的程序，用于找到数组中的最大值(max)和最小值(min)，你可以采用这样的步骤：

program FindMinMax;
var
  a: array[1..10] of Integer; // 假设我们有一个包含10个元素的整数数组
  n, i: Integer;
  maxValue, minValue: Integer;

begin
  writeln('请输入数组的长度n:');
  readln(n);
  
  // 初始化最大值和最小值为数组的第一个元素
  maxValue := a[1];
  minValue := a[1];

  // 遍历数组，更新最大值和最小值
  for i := 2 to n do
  begin
    read(a[i]); // 输入每个数组元素
    if a[i] > maxValue then
      maxValue := a[i]; // 如果当前元素大于已知的最大值，更新最大值
    else if a[i] < minValue then
      minValue := a[i]; // 如果当前元素小于已知的最小值，更新最小值
  end;

  writeln('最大值 (max): ', maxValue);
  writeln('最小值 (min): ', minValue);

end.

在这个程序中，首先获取用户输入的数组长度`n`，然后遍历数组，通过比较每个元素与当前的最大值和最小值，找到它们并打印出来。