Необходимо вывести числа от - 3 до 7.

random (6) ;

random (-3,7) ;

random (-3) + 7;

random (7) - 3.

1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.

Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.

Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;

Program PS; var n, i: integer; b: real; a: array[1 ... 3] of real; otoplenie: boolean; begin read (n) ; for i : = 1 to 3 do a[i] : = random (50) - 20 + random () ;

Program PS; var n, i: integer; b: real; a: array[1 ... 3] of real; begin read (n) ; for i : = 1 to 3 do a[i] : = random (50) - 20 + random () ;