Доделать программу - найти НОД

[Kamelok]

Смог только задать последовательность, а как найти наибольший общий делитель не знаю. Задание звучит так: задано N натуральных чисел (N>10), найти наибольший общий делитель.
var x:array[1..10]of integer;
i,k:integer;
begin
write('Введите размер одномерной матрицы K<=10 - ');
readln(K);
randomize;
writeln('Массив x:');
for i:=1 to k do
begin
x[i]:=random(50)-1;
write(x[i],' ');
end;
end.

[newerow1989]

Сообщение от Kamelok

наибольший общий делитель

Скорее всего наименьший.

var x:array[1..10]of integer;
    i,k,max,del:integer;
    d:boolean;
begin
   write('Введите размер одномерной матрицы K<=10 - ');
   readln(K);
   randomize;
   writeln('Массив x:');
   for i:=1 to k do
   begin
      x[i]:=random(50)+1;
      write(x[i],' ');
   end;
   Writeln;
   max:=x[1];
   For i:=2 to k do
      If max<x[i] then
         max:=x[i];
   del:=max;
   Repeat
      d:=true;
      For i:=1 to k do
         If del mod x[i]<>0 then
         begin
            d:=false;
            del:=del+max;
         end;
   Until d;
   Writeln(del);
   Readln;
end.

[Kamelok]

Спасибо за помощь, а почему он так выводит ответ. Вряд ли он наименьший общий делитель.
Введите размер одномерной матрицы K<=10 - 10
Массив x:
41 15 26 1 28 64 51 70 91 91
60889920

[newerow1989]

Потому что 60889920 делится на нижеуказанные числа без остатка!
41 15 26 1 28 64 51 70 91 91

[Serge_Bliznykov]

Сообщение от newerow1989

Скорее всего наименьший.

наибольший. рекомендую погуглить.

вот, например:

Наибольший общий делитель Общим делителем нескольких чисел называется число, которое является делите-лем каждого из них. Например, числа 36, 60, 42 имеют общие делители 2, 3 и 6. Среди всех общих делителей всегда есть наибольший, в данном случае это 6.

Сообщение от newerow1989

Потому что 60889920 делится на нижеуказанные числа без остатка!

путаете делимое и делитель. срочно повторить курс начальной школы!

p.s. это Вы перепутали с НОК (наименьшее общее кратное).

[newerow1989]

var x:array[1..10]of integer;
    i,k,del:integer;
    d:boolean;
begin
   write('Введите размер одномерной матрицы K<=10 - ');
   readln(K);
   randomize;
   writeln('Массив x:');
   for i:=1 to k do
   begin
      x[i]:=random(50)+1;
      write(x[i],' ');
   end;
   Writeln;
   del:=x[1];
   Repeat
      d:=true;
      For i:=1 to k do
         If x[i] mod del<>0 then
         begin
            d:=false;
            del:=del-1;
         end;
   Until d;
   Writeln(del);
   Readln;
end.