Помогите с задачкой по информатике на языке паскаль, Текст задачи.Заполнить массив с именем X случайными значениями и вывести эти значения на экран. Размерность массива 12, все элементы целого типа. Удвоить значение каждого элемента массива и вывести на экран.
More Questions From This User See All
Answers & Comments
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.
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.