8 lines
134 B
ObjectPascal
8 lines
134 B
ObjectPascal
const N = 31;
|
|
var A: array[1..N] of integer;
|
|
i, x, y: integer;
|
|
s: real;
|
|
begin
|
|
for i:=1 to N do Random(40) - 20;
|
|
|
|
end. |