Program n_6; var i,x,y,z: integer; m: array[1..n] - вопрос №85619656112345 от 13alla68 13.04.2021 13:21

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. правильно ли я написала программу для нахождения десяти произвольных двухзначных целых чисел? если нет то как правильно

13alla68 · Answer

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....