Question

Cine ma poate ajuta cu un astfel de program ?


3.Scrieţi un program cu pointeri care calculează cel mai mare divizor comun dintr-un şir de numere date.

Answer 1

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.