Question

Нужна программа для Паскаля - Реверс массива.

Answer 1

Var
 mas:array[1..1000] of integer;
 N, i, c:integer;

begin
  readln(N);
  for i:=1 to N do
   readln(mas[i]);
  for i:=1 to (N div 2) do
  begin
   c:=mas[i];
   mas[i]:=mas[N-i+1];
   mas[N-i+1]:=c;
  end;
  for i:=1 to N do
   write(mas[i],' ');
end.

Answer 2

Для написания программы на языке программирования Паскаль, которая выполняет реверс (переворачивание) массива, вы можете использовать следующий код:

pascalCopy code
program ReverseArray;

const
  MaxArraySize = 100;

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

begin
  writeln('Введите размер массива (не более ', MaxArraySize, '): ');
  readln(n);

  if (n < 1) or (n > MaxArraySize) then
  begin
    writeln('Недопустимый размер массива.');
    exit;
  end;

  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    readln(arr[i]);
  end;

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

  writeln;

  // Реверс массива
  for i := 1 to n div 2 do
  begin
    temp := arr[i];
    arr[i] := arr[n - i + 1];
    arr[n - i + 1] := temp;
  end;

  writeln('Реверсированный массив:');
  for i := 1 to n do
  begin
    write(arr[i], ' ');
  end;

  writeln;
end.

Эта программа сначала запрашивает размер массива и элементы массива, а затем выполняет реверс массива, переворачивая его элементы. Результат выводится на экран.