[about_POOH]

Драсте всем!! Мне нужно в матрице найти наибольший общий делитель. Алгоритмы нахождения НОД из двух чисел предостаточно. А вот ничего адекватного насчёт нахождения НОД нескольких чисел нету.
Помогите с алгоритмом!!! плиз...

[robonuk]

В чём проблема??? Ищи делители для одной пары чисел, потом для второй пары и т.д.... Затем таким же путём ищешь делители от найденных
делителей...
Что-то ТИПО:
72 и 48..||..63 и 117
НоДы 6 и 9
общий НоД 3
Извиняюсь если что не так подсчитал!
А по другому никак! =(

[vitalik007]

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 result:=b else result:=a;
end;

[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.