ИЗМЕНИТЕ ПРОГРАММУ ТАК, ЧТОБЫ С ЕЕ ПОМОЩЬЮ МОЖНО БЫЛО НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ...

Question

ИЗМЕНИТЕ ПРОГРАММУ ТАК, ЧТОБЫ С ЕЕ ПОМОЩЬЮ МОЖНО БЫЛО НАЙТИ НАИБОЛЬШИЙ ОБЩИЙ ДЕЛИТЕЛЬ ПРОИЗВОЛЬНЫХ ДЕСЯТИ ЦЕЛЫХ ДВУЗНАЧНЫХ ЧИСЕЛ.СРОЧНО!!!!

---

---

Answer 1

Program n_6;

const
  n=10;

var
  m:array[1..n] of integer;
  i,x,y,z:integer;

procedure nod(a,b:integer; var c:integer);
begin
  while a<>b do
    if a>b then a:=a-b else b:=b-a;
  c:=a
end;

begin
  Writeln('Введите 10 двухзначных целых чисел');
  for i:=1 to n do Read(m[i]);
  x:=m[1];
  for i:=2 to n do begin y:=m[i]; nod(x,y,z); x:=z end;
  Writeln('НОД=',x)
end.