Pascal prin functie:
function mar(x,y:integer):integer;
begin
repeat
if abs(x)>abs(y) then x:=x mod y
else y:=y mod x;
until (x=0) or (y=0);
mar:=abs(x+y);
end;
var a:array[1..100] of integer;
n,i:byte;
k:integer;
begin
write('Enter numarul de elemente n=');
read(n);
writeln('Enter elementele matricei: ');
for i:=1 to n do
begin
write('a[',i,']=');
read(a[i]);
end;
writeln('Matricea:');
for i:=1 to n do
write(a[i],' ');
writeln;
k:=mar(a[1],a[2]);
for i:=3 to n do k:=mar(k,a[i]);
writeln('Cel mai mare divizor comun=',k);
end.
