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.

правильно ли я написала программу для нахождения десяти произвольных двухзначных целых чисел? если нет то как правильно

Question

Информатика

Потапий

18 февраля, 18:58

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.

правильно ли я написала программу для нахождения десяти произвольных двухзначных целых чисел? если нет то как правильно

+4

Ответы (1)

Знаете ответ?

Натоля · 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.