Question

Сделать в паскале! В заданном массиве все элементы, стоящие на нечетных местах,разделить на 2. Вывести старый и новый массивы.

Answer 1

uses Arrays;

var

 n, i:integer;

 arr:array of integer;

begin

writeln('Введите размерность массива: ');

readln(n);

SetLength(arr,n);

arr:=CreateRandomIntegerArray(n);

writeln('Сгенерированный массив: ');

for i:= 0 to n-1 do

write(arr[i], ' ');

write(#10);

writeln('Новый массив: ');

for i:= 0 to n-1 do begin

if (i mod 2 <> 0) then write(arr[i]/2, ' ') else

write(arr[i], ' ');

end;

end.

Answer 2

Конечно! Вот пример кода на языке Pascal, который выполняет заданное действие:

pascalCopy code
program DivideArrayElements;

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

var
  arr: array[1..MAX_SIZE] of Integer;
  oldArr, newArr: array[1..MAX_SIZE] of Integer;
  size, i: Integer;

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

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

  // Деление элементов на нечетных позициях на 2
  for i := 1 to size do
  begin
    if i mod 2 <> 0 then
    begin
      newArr[i] := arr[i] div 2; // Новый массив с измененными значениями
    end
    else
    begin
      newArr[i] := arr[i]; // Сохраняем значение нечетных позиций в новом массиве
    end;
    oldArr[i] := arr[i]; // Сохраняем старый массив в отдельном массиве
  end;

  // Вывод старого и нового массивов
  Writeln('Старый массив:');
  for i := 1 to size do
    Write(oldArr[i], ' ');
  
  Writeln;
  
  Writeln('Новый массив:');
  for i := 1 to size do
    Write(newArr[i], ' ');
    
  Readln;
end.

При запуске программы вы сможете ввести размер массива и его элементы. Затем программа разделит все элементы, стоящие на нечетных позициях, на 2 и выведет старый и новый массивы.