НОД для 10 чисел Опции

[Dummy]

Дано 10 натуральных чисел. Найти их наибольший общий делитель.
Я использовала алгоритм Архимеда (так, кажется, он называется).

program nod (input, output);
var m, n, i, p, q, x, o: integer;
begin
read(p);
for i:=1 to 9 do 
begin
read(q);
if p>q then begin m:=p; n:=q end
else begin m:=q; n:=p end;
while (n<>0) and (m<>0) do begin
o:=m-n; if o>=n then m:=o else 
begin m:=n; n:=o end
end;
if m<>0 then x:=m else x:=n;
p:=x
end;
writeln(x)
end.

Думаю, что все написанное выше может оказаться вообще полной ерундой...
Пишу программу второй раз в жизни... Помогите,пожалуйста! И еще у меня чисто теоретический вопрос: можно в цикле for прсваивать переменной новое значение и потом пользоваться уже им (я пытаюсь так сделать со значением "p").

Сообщение отредактировано: volvo - 18.10.2005 20:47