Question

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

Answer 1

var

 X: array [1..12] of byte;

 i: byte;

BEGIN

randomize;

for i := 1 to 12 do

begin

 X[i] := random(50);

 write(X[i]:4);

end;

writeln;

for i := 1 to 12 do

begin

 X[i] := X[i] + X[i];

 write(X[i]:4);

end;

END.

Answer 2

const N = 12;

const lim = 65534;  // поменяй лимит, если надо больше

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.