Задание:
Вывести массив случайными числами в интервале [-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. В Паскале=)
Знаете другой ответ?