ТутРешу.Ру

Вывести массив случайными числами в интервале [-10; 10]

Задание:

Вывести массив случайными числами в интервале [-10; 10]

Решение:

Var a: array [-10… 10] of integer; i: integer; begin for i: =-10 to 10 do a[i]: =random (100); for i: =-10 to 10 do writeln ('[', i, '] => ', a[i]); end. В Паскале=)




Знаете другой ответ?

Отправить свой ответ