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

Question

Информатика

Окила

13 мая, 02:37

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

+4

Ответы (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.