CYM语言程序实现求一批数中的最大值、最小值的差和积

以下是用CYM语言实现求一批数中的最大值、最小值的差和积的程序：

PROGRAM MaxMinDifferenceProduct;
VAR
  num: ARRAY[1..10] OF INTEGER; // 存储输入的数
  i, max, min, diff, product: INTEGER; // max为最大值，min为最小值，diff为差，product为积

BEGIN
  // 输入10个数
  FOR i := 1 TO 10 DO
  BEGIN
    WRITE('请输入第', i, '个数：');
    READLN(num[i]);
  END;

  // 计算最大值和最小值
  max := num[1];
  min := num[1];
  FOR i := 2 TO 10 DO
  BEGIN
    IF num[i] > max THEN
      max := num[i];
    IF num[i] < min THEN
      min := num[i];
  END;

  // 计算差和积
  diff := max - min;
  product := 1;
  FOR i := 1 TO 10 DO
    product := product * num[i];

  // 输出结果
  WRITELN('最大值为：', max);
  WRITELN('最小值为：', min);
  WRITELN('最大值和最小值的差为：', diff);
  WRITELN('所有数的积为：', product);
END.

在程序中，我们使用了一个包含10个元素的数组 `num` 来存储输入的数。首先，我们通过一个循环输入这10个数。然后，我们使用另外一个循环计算这批数中的最大值和最小值，并且计算它们的差。最后，我们使用一个循环计算这批数的积，并且输出结果。