Question

Изменить порядок следования элементов массива на обратный  Помогите, пожалуйста, составить программу в паскале!!!

Answer 1

А нету желания уточнить? Тебе на ассемблере, брейнфаке или как?

Answer 2

Var
  i,j:integer;
  a,b:array[1..10]of integer;
begin
writeln('Исходный массив: ');
for i:=1 to 10 do
  begin
  a[i]:=random(10);
  write(a[i],' ');
  end;
writeln;
j:=1;
writeln('Измененный массив: ');
for i:=10 downto 1 do
  begin
  b[j]:=a[i];
  write(b[j],' ');
  j:=j+1;
  end;
end.

Answer 3

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

pascalCopy code
program ReverseArray;

const
  MAX_SIZE = 100; // Максимальный размер массива

type
  TArray = array[1..MAX_SIZE] of Integer;

var
  arr: TArray; // Исходный массив
  reversedArr: TArray; // Массив с обратным порядком
  size, i: Integer;

// Процедура для изменения порядка элементов на обратный
procedure ReverseElements(var inputArray: TArray; var outputArray: TArray; n: Integer);
var
  i: Integer;
begin
  for i := 1 to n do
    outputArray[i] := inputArray[n - i + 1];
end;

begin
  // Ввод размера массива
  Write('Введите размер массива (не более ', MAX_SIZE, '): ');
  Readln(size);

  // Проверка ввода размера массива
  if (size < 1) or (size > MAX_SIZE) then
  begin
    Writeln('Некорректный размер массива.');
    Exit;
  end;

  // Ввод элементов массива
  Writeln('Введите элементы массива:');
  for i := 1 to size do
  begin
    Write('Элемент ', i, ': ');
    Readln(arr[i]);
  end;

  // Изменение порядка элементов на обратный
  ReverseElements(arr, reversedArr, size);

  // Вывод массива с обратным порядком
  Writeln('Массив с обратным порядком:');
  for i := 1 to size do
    Write(reversedArr[i], ' ');

  Readln;
end.

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