Question

Найти первый отрицательный элемент массива, модуль которого находится в заданных пределах, заменить его индексом и переставить на место шестого элемента. Pascal

Answer 1

program raf105;

const

 n = 7;

var

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

 i,x,y: integer;

 z: boolean;

begin

write('Введите 2 числа. Минимальное и максимальное: ');

readln(x,y);

writeln('Заполните массив из ',n,' элементов');

for i:=1 to n do

 readln(a[i]);

write('Изменённый массив: ');

for i:=1 to n do

begin

 if (not z) and (x<=abs(a[i])) and (abs(a[i])<=y) and (a[i]<0)

   then begin

     a[6]:= a[i];

     a[i]:= i;

     z:= True;

   end;

 write(a[i],' ');

end;

end.

PascalABC 3.4.2

Answer 2

Вот пример реализации алгоритма на языке Pascal:

pascalCopy code
program FindNegativeElement;

const
  ARRAY_SIZE = 10;  // Размер массива
  LOWER_LIMIT = 5;  // Нижний предел модуля
  UPPER_LIMIT = 10; // Верхний предел модуля

var
  arr: array[1..ARRAY_SIZE] of Integer;
  i, index: Integer;
  found: Boolean;

begin
  // Заполняем массив случайными числами
  Randomize;
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(20) - 10;  // Случайное число от -10 до 10

  found := False;
  index := 0;

  // Ищем первый отрицательный элемент, модуль которого находится в пределах [LOWER_LIMIT, UPPER_LIMIT]
  for i := 1 to ARRAY_SIZE do
  begin
    if (arr[i] < 0) and (Abs(arr[i]) >= LOWER_LIMIT) and (Abs(arr[i]) <= UPPER_LIMIT) then
    begin
      found := True;
      index := i;
      Break;
    end;
  end;

  if found then
  begin
    // Заменяем значение найденного элемента его индексом
    arr[index] := index;

    // Переставляем найденный элемент на место шестого элемента
    arr[6] := arr[index];
    arr[index] := 0;
  end;

  // Выводим исходный массив и результат
  WriteLn('Исходный массив:');
  for i := 1 to ARRAY_SIZE do
    Write(arr[i], ' ');

  WriteLn;
  WriteLn('Результат:');
  for i := 1 to ARRAY_SIZE do
    Write(arr[i], ' ');

  ReadLn;
end.

В этом примере мы используем массив arr размером 10 элементов. Заполняем его случайными числами от -10 до 10. Затем мы ищем первый отрицательный элемент, модуль которого находится в заданных пределах [LOWER_LIMIT, UPPER_LIMIT]. Если такой элемент найден, мы заменяем его значение его индексом и переставляем на место шестого элемента.

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