Question

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

Answer 1

Program massiv;
Uses crt;
Var a:array [0..20] of integer;
       i,n:integer;
begin
Randomize;
for i:=1 to 20 do
begin
a[i]:=ranom(10);
Write(a[i],'   ');
end;
for i :=1 to 20 do
begin
n:=a[21-i];
a[21-i]:=a[i];
a[i]:=n;
write(a[i],'   ');
end;
end.

Answer 2

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

pascalCopy code
program ReverseArray;

const
  MAX_SIZE = 10;

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

var
  arr: MyArray;
  i, temp, size: Integer;

procedure Reverse(var arrayToReverse: MyArray; arraySize: Integer);
var
  left, right: Integer;
begin
  left := 1;
  right := arraySize;
  
  while left < right do
  begin
    // Обмен значениями между левым и правым элементами массива
    temp := arrayToReverse[left];
    arrayToReverse[left] := arrayToReverse[right];
    arrayToReverse[right] := temp;
    
    // Переход к следующей паре элементов
    left := left + 1;
    right := right - 1;
  end;
end;

begin
  // Ввод размера массива
  writeln('Введите размер массива (не более ', MAX_SIZE, '): ');
  readln(size);
  
  // Проверка на корректность размера массива
  if (size < 1) or (size > MAX_SIZE) then
  begin
    writeln('Некорректный размер массива!');
    exit;
  end;
  
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to size do
  begin
    readln(arr[i]);
  end;
  
  // Изменение порядка элементов на обратный
  Reverse(arr, size);
  
  // Вывод измененного массива
  writeln('Измененный массив:');
  for i := 1 to size do
  begin
    writeln(arr[i]);
  end;
end.

Программа предлагает ввести размер массива (не более 10) и элементы массива, а затем изменяет порядок элементов на обратный и выводит результат на экран. Обратите внимание, что размер массива проверяется на корректность (не менее 1 и не более MAX_SIZE), чтобы избежать выхода за границы массива.