[robonuk]

Вот накатал на паскале нахожение нода для одномерного массива:
(Поправте если что не так)

program NoDs;
uses crt;
var
A : array [1..99] of integer;
i : byte;
n : byte;

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;

write(' Vvedite koli4estvo eleventov: ');
readln(n);
for i := 1 to n do
begin
write(' Vvedite ',i,' elevent: ');
readln(A[i]);
end;
{----------------------Собственно весь код--------------}
for i := 1 to n do A[1] := nod(A[1],A[i]);
{---------------------------------------------------------}
write(' Obshij NOD: ',A[1]);

readkey;
end.