このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/212
#  C言語で明日までです 
#   
#   
#  n件の整数型データを配列に入力し、その平均値を出力するプログラムを作成せよ。ただし、実行部において添字演算子を用いないで、また、*(p+i)と*p++の形2つを用いた場合をそれぞれ求めよ。です。お願いします! 
# 
# 

'n件の整数データを入力し、その平均値を出力する'(_n) :-
        'n件の整数データを入力し'(1,_n,_n件の整数データ),
        その平均値を出力する(_n,_n件の整数データ,0).

'n件の整数データを入力し'(M,_n,[]) :-
        M > N,!.        
'n件の整数データを入力し'(M,_n,[N|R]) :-
        writef('[%t]件目 : ',[N]),
        M_2 is M + 1,
        'n件の整数データを入力し'(M_2,_n,R).

その平均値を出力する(_n,[],_合計) :-
        _平均値 is _合計 / _n,
        writef('平均値 は %t です\n',[_平均値]).
その平均値を出力する(_n,[_整数|R],_合計_1) :-
        _合計_2 is _整数 + _合計_1,
        その平均値を出力する(_n,R,_合計_2).