Question

Составьте программу из 15 элементов в промежутке от [-7,24] integer

Answer 1

Program RD;
Var X:array [1..15] of real ;
i:integer ;
Begin 
x[i] := random [24]
end.