Даны целые числа.

Найти среднее арифметическое этих чисел.

Решить через for и random

Pascal

Необходимо вывести числа от - 3 до 7. random (6) ; random (-3,7) ; random (-3) + 7; random (7) - 3.

1) Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. Pascal (желательно с блок-схемой) 2) Найти сумму членов арифметической прогрессии, если известны её первый член, знаменатель и число членов прогрессии Pascal

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 () ;

Как сделать теперь без массива (паскале) ? 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 () ;