Question

Сгенерировать массив и осуществить замену отрицательных на их квадраты, положительных на -1. (размерность массива задает пользователь, работа в Pascal)

Answer 1

//PascalABC.NET 3.4.2

begin

 var ar := arrrandom(readinteger('Введите размер массива'), -10, 10).Println;

 ar := ar.Select(x -> x < 0 ? x * x : x = 0 ? x : -1);

 ar.Println;

end.

Answer 2

Для того чтобы сгенерировать массив и осуществить замену отрицательных чисел на их квадраты, а положительных на -1 в Pascal, следуйте этим шагам:

1. Объявите переменные и массив:

   • Объявите переменную для размерности массива (например, n).
   • Объявите массив целых чисел (например, arr).

2. Сгенерируйте массив с помощью генератора случайных чисел.

3. Проитерируйтесь по массиву и выполните необходимые замены.

4. Выведите результат.

Вот пример кода на Pascal, реализующего описанную задачу:

pascalCopy code
program ReplaceArrayElements;

const
  MAX_VALUE = 100; // Максимальное значение элемента массива для генерации

var
  n, i: integer;
  arr: array of integer;

begin
  // Ввод размерности массива
  Write('Введите размерность массива: ');
  Readln(n);

  // Установка размера массива
  SetLength(arr, n);

  // Заполнение массива случайными числами от -MAX_VALUE до MAX_VALUE
  Randomize;
  for i := 0 to n - 1 do
    arr[i] := Random(2 * MAX_VALUE + 1) - MAX_VALUE;

  // Замена отрицательных чисел на их квадраты, а положительных на -1
  for i := 0 to n - 1 do
  begin
    if arr[i] < 0 then
      arr[i] := arr[i] * arr[i]
    else
      arr[i] := -1;
  end;

  // Вывод результата
  WriteLn('Исходный массив:');
  for i := 0 to n - 1 do
    Write(arr[i], ' ');

  ReadLn;
end.

Этот код сначала попросит вас ввести размерность массива, затем сгенерирует массив случайных чисел от -100 до 100 и выполнит замену значений, как указано в задаче. Затем он выведет исходный массив и массив после замен.