Question

Паскаль.Заполните массив 15 числами от -30 до 30. Замените все элементы массива на противоположные по знаку. Вывести на экран первый и второй массив. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(10, -30, 30);

 a.Println;

 a.Transform(p -> -p);

 a.Println

end.

Answer 2

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

pascalCopy code
program ReverseArray;

var
  arr: array[1..15] of Integer;
  i: Integer;

begin
  { Заполнение массива }
  for i := 1 to 15 do
    arr[i] := Random(61) - 30; { Генерация чисел от -30 до 30 }

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

  { Замена элементов массива на противоположные по знаку }
  for i := 1 to 15 do
    arr[i] := -arr[i];

  { Вывод измененного массива }
  WriteLn('Измененный массив:');
  for i := 1 to 15 do
    Write(arr[i], ' ');
  WriteLn;
end.

Примерный вывод:

diffCopy code
Исходный массив:
-12 30 -18 10 -23 5 19 17 -8 -1 -30 2 -27 -29 -10 
Измененный массив:
12 -30 18 -10 23 -5 -19 -17 8 1 30 -2 27 29 10 

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