プログラムの勉強をしているのですが・・・・・・

以下のプログラムを組もうとしているのですが、ある所から分からなくなりました。ぜひ、教えてください。

配列x(1)=3, x(2)=10, x(3)=4, x(4)=4, x(5)= 1 の最大値と最小値平均値を計算する関数副プログラムmaxmin( x, N, xmax, xmin, xave)を作る。
　integer x(5)
N=5
x(1)=3
…　　　←省略
call maxmin( x, N, xmax, xmin, xave)
write(6,*) “max=", xmax
write(6,*) “min=“, xmin
write(6,*) “xave=“, xave
end

subroutine　maxxmin(x,N,xmax,xmin,xave)

ここから先が分かりません。どうしたら良いのでしょうか？
分かる方、ぜひ教えてください。
よろしくお願いします。
ちなみに使ってるエディタはxemacsです。

No.2 ベストアンサー 回答者： DT200 回答日時： 2007/05/17 14:21

FORTRANは20年くらい扱っていないのすが、

多分これでOKだと思います。

implicit integer(a-z)　　　← すべての変数を整数として扱う
real xave　　　　←　実数で宣言する

subroutine　maxxmin(x,N,xmax,xmin,xave)
sum = 0
xmax = 0　　　　←　MAX値を初期化（xの値は正の整数としている）
xmin = 10000　　← MIN値を初期化（xの値は9999を超えないものとしている）

do i=1,N
if( x(i) .gt. xmax ) then
xmax = x(i)
endif
if( x(i) .lt. xmin )then
xmin = x(i)
endif
sum = sum + x(i)
end do
xave = float(sum) / float(N)
return
end

No.1 回答者： nobadymen 回答日時： 2007/05/17 13:58

まず言語が何なのか教えてください。

話はそれからです。