Program n6;

[email protected] в категроии Информатика, вопрос открыт 05.02.2018 в 09:16

const m: array [1..6] of integer =
(16,32,40,64,80,128);
var 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
x:=m[1];
for i:=2 to 6 do
begin
y:=m[i];
nod (x,y,z);
x:=z
end;
writeln (x)
end.
Измените программу так, чтобы с её помощью можно было найти наибольший общий делитель произвольных десяти целых двухзначных чисел. (ЧЕРЕЗ RANDOMIZE)