нод массива в паскале

[VampiR13]

Помогите решить задачку надо вычислить функцию нод массива в паскале.

[ROMA2PVT]

ваши наработки в студию.

[VampiR13]

С функцией НОД 2 чисел разобрался а с массивом никак.

нод 2 чисел
var a,b:longint;
function NOD(x,y:longint):longint;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
begin
writeln('ab');
readln(a,b);
writeln('NOD',a,' i ',b,'=',NOD(a,b));
end.

[ROMA2PVT]

Uses
  CRT;
Const
 n=2;
var
A:array [1..99] of integer;
i :integer;

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;

begin
  clrscr;
     for i := 1 to n do
       begin
         write('Введите ',i,' число: ');
          readln(A[i]);
       end;
         for i := 1 to n do
           A[1] := nod(A[1],A[i]);
             write('НОД 3-х чисел: ',A[1]);
readkey;
end.

[DoDge_VipeR]

var nd:integer;
.....
begin
......
nd:=a[1];
for i:=1 to n do
nd:=nod(a[i],nd);
writeln('Hog MaccuBa=',nd);
....
end.

[VampiR13]

ROMA2PVT Спасибо все робит.

[ROMA2PVT]

да не за что.