Как в pascal abc заполнить массив случайными числами в диапазоне [-10000; 10000]?

Question

Информатика

Окила

31 декабря, 17:44

Как в pascal abc заполнить массив случайными числами в диапазоне [-10000; 10000]?

+1

Ответы (1)

Знаете ответ на вопрос?

Багданур · Answer 1

var

masiv:array[-10000 ... 10000] of integer;

begin

for var i : = - 10000 to 10000 do

begin

randomize;

masiv[i] : = random (-10000, 10000) ;

end;

end.