Question

Заполнить массив из 10 элементов случайными числами в интервале [-10...10] и выполнить инверсию отдельно для 1 и 2 половин массива.Язык Паскаля 15 БАЛЛОВ ЗА ЛУЧШИЙ

Answer 1

Const
  N = 10;
var
  mas:array[1..999] of integer;
  i:integer;

begin
  randomize;
  write('Массив: ');
  for i:=1 to N do
  begin
    mas[i]:=random(21)-10;
    write(mas[i],' ');
  end;
  writeln;
  for i:=1 to N div 2 do
    mas[i]:=-mas[i];
  for i:=(N div 2)+1 to N do
    mas[i]:=-mas[i];
  write('Новый массив: ');
  for i:=1 to N do
    write(mas[i], ' ');
end.

Answer 2

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

program InvertArray;

const
  N = 10;

var
  arr: array[1..N] of integer;
  i, temp: integer;

procedure FillArrayRandom(var arr: array of integer; lower, upper: integer);
var
  i: integer;
begin
  for i := 0 to Length(arr) - 1 do
    arr[i] := random(upper - lower + 1) + lower;
end;

procedure PrintArray(arr: array of integer);
var
  i: integer;
begin
  for i := 0 to Length(arr) - 1 do
    write(arr[i], ' ');
  writeln;
end;

procedure InvertArrayPart(var arr: array of integer; start, finish: integer);
var
  i, j: integer;
begin
  for i := start to (start + finish) div 2 do
  begin
    j := start + finish - i;
    temp := arr[i];
    arr[i] := arr[j];
    arr[j] := temp;
  end;
end;

begin
  // Заполняем массив случайными числами в интервале [-10, 10]
  FillArrayRandom(arr, -10, 10);

// Выводим исходный массив
  writeln('Исходный массив:');
  PrintArray(arr);

// Инверсия первой половины массива
  InvertArrayPart(arr, 0, N div 2 - 1);

// Инверсия второй половины массива
  InvertArrayPart(arr, N div 2, N - 1);

// Выводим измененный массив
  writeln('Массив после инверсии:');
  PrintArray(arr);

// Ждем нажатия клавиши перед завершением программы
  readln;
end.

Программа создает массив из 10 элементов, заполняет его случайными числами в интервале [-10, 10], затем выполняет инверсию первой и второй половин массива. После каждого этапа массив выводится на экран для наглядности.