Question

помогите пожалуйста решить в паскале АВC/линейные массивы.№4 вставка. В линейный массив целых чисел на 7-е место вставить число равное квадрату первого элемента.№5. Преобразование. Дан массив из четного числа элементов. Поменять местами его половины

Answer 1

№5
const n=10;
var A:array [1..n]of integer;
i,r:integer;
begin
   cls;
   for i:=1 to n do read(A[i]);
   for i:=1 to(n div 2)do
      begin
         r:=A[i];
         A[i]:=A[i+(n div 2)];
         A[i+(n div 2)]:=r;
      end;
   for i:=1 to n do write(A[i]:3);
end.

Answer 2

Конечно, я могу помочь вам решить эти задачи на Паскале. Вот пример решения задачи №4 (вставка числа в линейный массив) и задачи №5 (поменять местами половины массива):

pascalCopy code
program LinearArray;
const
  SIZE = 10; // Размер массива

var
  arr: array[1..SIZE] of Integer;
  i, temp: Integer;

begin
  // Инициализация массива
  for i := 1 to SIZE do
    arr[i] := i;

  // Задача №4: Вставка числа в массив
  arr[7] := arr[1] * arr[1];

  // Задача №5: Поменять местами половины массива
  for i := 1 to SIZE div 2 do
  begin
    temp := arr[i];
    arr[i] := arr[i + SIZE div 2];
    arr[i + SIZE div 2] := temp;
  end;

  // Вывод массива
  for i := 1 to SIZE do
    Write(arr[i], ' ');

  Readln;
end.

В этом примере массив инициализируется числами от 1 до 10. Затем, в задаче №4, значение на 7-м месте заменяется квадратом первого элемента. В задаче №5, половины массива меняются местами путем обмена элементов.

Обратите внимание, что в этом примере размер массива SIZE равен 10, вы можете изменить его значение в соответствии с вашими потребностями. Также, приведенный код предназначен для демонстрации и может быть доработан для более общего использования.