Предмет: Информатика,
автор: RoolsenGun
Помогите с задачкой по информатике на языке паскаль, Текст задачи.Заполнить массив с именем X случайными значениями и вывести эти значения на экран. Размерность массива 12, все элементы целого типа. Удвоить значение каждого элемента массива и вывести на экран.
lingvini2013:
диапазон чисел какой?
Ответы
Автор ответа:
2
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.
Автор ответа:
4
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.
Похожие вопросы
Предмет: Обществознание,
автор: wadeq
Предмет: Математика,
автор: XxXMayXxX
Предмет: Информатика,
автор: mizukichan19
Предмет: Математика,
автор: EPO13kg