Question

Помогите с задачкой по информатике на языке паскаль,
Текст задачи.Заполнить массив с именем X случайными значениями и вывести эти значения на экран. Размерность массива 12, все элементы целого типа. Удвоить значение каждого элемента массива и вывести на экран

Answer 1

const N = 12;

const lim = 65535;

var array1: array [1..N] of real;

       i: integer;

begin

randomize;

for i:=1 to N do begin

array1[i]:= random(-lim, lim) * 2;

writeln(array1[i]);

end

end.