Вопрос по информатике:
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.
правильно ли я написала программу для нахождения десяти произвольных двухзначных целых чисел?если нет то как правильно
- 22.09.2015 13:08
- Информатика
- remove_red_eye 9650
- thumb_up 45
Ответы и объяснения 1
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.
- 23.09.2015 01:12
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.