Gavenket
5 год назад
Program n_6;vari,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);beginif 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 beginm[i]:=random;nod(x,y,z);x:=z;end;writeln (',m[',i,']=',m[i])end.правильно ли я написала программу для нахождения десяти произвольных двухзначных целых чисел?если нет то как правильно
ОТВЕТЫ
Татяна
Oct 24, 2020
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.
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.
14
