Question

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

Answer 1

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.

Answer 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.

Answer 3

Конечно! Вот пример программы на языке Паскаль, которая выполняет указанные вами задачи:

pascalCopy code
program ArrayExample;

const
  ARRAY_SIZE = 12;

var
  X: array[1..ARRAY_SIZE] of Integer;
  i: Integer;

// Процедура для заполнения массива случайными значениями
procedure FillArrayRandomly;
var
  j: Integer;
begin
  Randomize; // Инициализация генератора случайных чисел
  for j := 1 to ARRAY_SIZE do
    X[j] := Random(100); // Генерируем случайные значения от 0 до 99
end;

// Процедура для вывода значений массива на экран
procedure PrintArray;
begin
  for i := 1 to ARRAY_SIZE do
    Write(X[i], ' ');
  Writeln;
end;

// Процедура для удвоения значений элементов массива
procedure DoubleArrayValues;
begin
  for i := 1 to ARRAY_SIZE do
    X[i] := X[i] * 2;
end;

begin
  FillArrayRandomly;
  
  Writeln('Исходный массив:');
  PrintArray;
  
  DoubleArrayValues;
  
  Writeln('Массив после удвоения значений:');
  PrintArray;
end.

Программа объявляет массив X размером 12 элементов и процедуры для заполнения массива случайными значениями, вывода массива на экран и удвоения значений элементов массива. Сначала массив заполняется случайными значениями, затем выводится на экран, после чего значения удваиваются и выводятся на экран снова.