Question

информатика 9 класс 28(2) Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения. Требуется решение на языке Pascal.

Answer 1

var

 a:array of integer;

 i,n,min,max:integer;

begin

 write('Введите размерность массива: '); readln(n);

 setlength(a,n); dec(n);

 write('Введите разброс значений (min max): '); readln(min,max);

 writeln('Изначальный массив:');

 for i:=0 to n do

   begin

     a[i]:=random(max+abs(min)+1)+min;

     write(a[i]:4);

     if a[i]<0 then a[i]:=sqr(a[i]);

   end;

 writeln;

 writeln('Изменённый массив:');

 for i:=0 to n do

   write(a[i]:4);

end.

Answer 2

Задача

Вам дан одномерный массив, и требуется заменить все отрицательные элементы массива их квадратами, оставив положительные элементы без изменений. Вам нужно предоставить решение на языке Pascal.

Решение на языке Pascal

Вот пример решения на языке Pascal, который заменяет отрицательные элементы массива их квадратами:

program ReplaceNegativeElements;
const
  N = 10; // размер массива
var
  arr: array[1..N] of integer;
  i: integer;
begin
  // Заполнение массива случайными числами
  for i := 1 to N do
    arr[i] := Random(21) - 10; // генерация чисел от -10 до 10

// Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

// Замена отрицательных элементов их квадратами
  for i := 1 to N do
    if arr[i] < 0 then
      arr[i] := arr[i] * arr[i];

// Вывод измененного массива
  writeln('Измененный массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;
end.

В этом примере мы используем массив `arr` размером `N`, который заполняется случайными числами от -10 до 10. Затем мы проходим по массиву и заменяем отрицательные элементы их квадратами. Наконец, мы выводим исходный и измененный массивы.

Объяснение решения

1. Мы используем цикл `for` для заполнения массива `arr` случайными числами от -10 до 10. 2. Затем мы выводим исходный массив, чтобы увидеть, какие элементы нужно заменить. 3. Мы снова используем цикл `for`, чтобы пройти по массиву и проверить каждый элемент. 4. Если элемент отрицательный (`arr[i] < 0`), мы заменяем его на его квадрат (`arr[i] := arr[i] * arr[i]`). 5. Наконец, мы выводим измененный массив, чтобы увидеть результат.

Пример вывода

Исходный массив:
-5 2 -8 4 -3 7 9 -1 6 -10
Измененный массив:
25 2 64 4 9 7 9 1 6 100

Обратите внимание: В приведенном выше примере используется генератор случайных чисел для заполнения массива. Вам может потребоваться внести изменения в код, чтобы заполнить массив согласно вашим требованиям.

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