/*== Ex12 関数と配列 ================*/
#include <stdlib.h>
#include "pseudo.h"
#include "Ex12.h"
/*-　使用する関数　------------------*/
  INT  InputNum( INT a[]);
  void RandArrayInt( INT a[]);
/*-　配列サイズ　--------------------*/
#define  aSIZE  (10+2)
/*===================================*/
TYPE void
FUNCTION main( void)
VARIABLE
    StaticINT  a[ aSIZE];
BEGIN
    InitLimitArray( aSIZE, a);
    WHILE (InputNum( a) > 0)
        RandArrayInt( a);
        DebugArrayInt(a, 1, Number(a));
    ENDWHILE
END
/*===================================*/
TYPE INT
FUNC InputNum( INT a[])
  VAR  INT nA;
  BEGIN
    WriteS("配列の要素の数? ");
      ReadInt( nA);

    SetNumberArray( nA, a);
  RETURN( nA);
  END
/*-----------------------------------*/
TYPE VOID
FUNC RandArrayInt( INT a[])
  VAR  INT n, nA;
  BEGIN
    nA= Number(a);
    srand( 999);     /*乱数初期化*/
    FOR (n, 1, nA)
        a[ n]= rand(); /*乱数発生*/
    ENDFOR
  END
/*-----------------------------------*/