НОД N чисел

[Mapko]

Ребята, подскажите программу, которая находила бы НОД N чисел, которые в свою очередь считываются из файла, а N изменяется в диапазоне от 3 до 10. Заранее спасибо

[Mad_Cat]

НОД(A,B,C)=НОД(НОД(A,B),C)
==>

function NoD(a,b:integer):integer;
  begin while (a<>0) and (b<>0) do if a>b then a:=a mod b  else b:=b mod a;
    if a=0 then Nod:=b else Nod:=a;
  end;
{.......}
Nd=NoD(a[1],a[2]);
For i:=3 to n do
Nd=NoD(nd,a[i]);
{....}
end.

[Luuzuk]

Сообщение от Mapko

...подскажите программу, которая находила бы НОД N чисел...

Maltab.