Question

Дан целочисленный одномерный массив A(N). Инвертировать элементы этого массива. Написать программу в консольном приложение Dephi на языке pascal для начинающих

Answer 1

Ответ:

const N = 10;

var

   a: array[1..N] of integer;

   i: byte;

   b: integer;

begin

   for i:=1 to N do

       read(a[i]);

 

   for i:=1 to N div 2 do begin

       b := a[i];

       a[i] := a[N-i+1];

       a[N-i+1] := b;

   end;

 

   for i:=1 to N do

       write(a[i],' ');

 

   writeln;

end.

Объяснение:

Answer 2

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

pascalCopy code
program InvertArray;

const
  N = 10; // Размер массива

var
  A: array[1..N] of Integer;
  i: Integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to N do
    A[i] := Random(100); // Генерируем случайное число от 0 до 99

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

  // Инвертирование элементов массива
  for i := 1 to N div 2 do
  begin
    // Меняем местами A[i] и A[N - i + 1]
    A[i] := A[i] + A[N - i + 1];
    A[N - i + 1] := A[i] - A[N - i + 1];
    A[i] := A[i] - A[N - i + 1];
  end;

  // Вывод инвертированного массива
  Writeln;
  Writeln('Инвертированный массив:');
  for i := 1 to N do
    Write(A[i], ' ');

  Readln;
end.

Эта программа создает массив из 10 случайных чисел, инвертирует его элементы и выводит как исходный, так и инвертированный массив. Примечание: инвертирование элементов массива выполняется путем обмена значений элементов через временную переменную.