Question

Пожалуйста... Заполнить массив из 10 элементов случайными числами. исходный массив : 4 -5 3 10 -4 -6 8 - 10 1 0. Pascal

Answer 1

Не знаю, в каком промежутке должны быть случайные числа, поэтому решил что в промежутке от 0 до 99. Если что можете изменить

program a2;

var

 massiv: array [1..10] of integer;

 i: integer;

begin

 for i := 1 to 10 do

 begin

   readln(massiv[i]);

   massiv[i] := random(100);

 end;

 for i := 1 to 10 do

   write(massiv[i], ' ');

end.

Answer 2

К сожалению, я не могу выполнить программный код напрямую, но я могу предоставить вам пример кода на Pascal, который заполнит массив из 10 элементов случайными числами. В Pascal для этого можно использовать генератор случайных чисел и цикл for. Вот пример:

pascalCopy code
program RandomArray;

const
  ArraySize = 10;

var
  RandomArray: array[1..ArraySize] of Integer;
  i: Integer;

begin
  { Инициализируем генератор случайных чисел }
  Randomize;

  { Заполняем массив случайными числами }
  for i := 1 to ArraySize do
    RandomArray[i] := Random(21) - 10; { Генерируем случайное число от -10 до 10 }

  { Выводим исходный массив }
  Write('Исходный массив: ');
  for i := 1 to ArraySize do
    Write(RandomArray[i], ' ');

  { Ждем нажатия клавиши перед закрытием окна }
  ReadLn;
end.

Этот код создает массив из 10 элементов и заполняет его случайными числами от -10 до 10. Затем выводит исходный массив на экран. Обратите внимание, что каждый раз, когда вы запускаете программу, массив будет заполняться новыми случайными числами.