Program n_6; var i,x,y,z:integer; m:array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10);...

Question

Program n_6;
var
i,x,y,z:integer;
m:array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10);
procedure nod(a,b:integer; var c:integer);
begin
if a>b then a:=a-b else b:=b-a;
randomize;
for i:=1 to n do
x:=m[1];
for i:=2 to n do
begin
m[i]:=random;
nod(x,y,z);
x:=z;
end;
writeln (',m[',i,']=',m[i])
end.
правильно ли я написала программу для нахождения десяти произвольных двухзначных целых чисел?если нет то как правильно

Comments

зачем здесь процедура NOD?

Answer 1

Const max=10;
var   ar:array[1..max]of integer;
        i:byte;
 
procedure randomArray();
var   i:byte;
begin
  randomize();
  for i:=1 to max do
    ar[i]:=random(10,100);
end;

begin
  randomArray();
 
  for i:=1 to max do
    write(ar[i],'  ');
end.

Comments

сасибо)