Question

Заменить в массиве v(9) максимальный элемент на его значение с противоположныи знаком (Паскаль)

Answer 1

program raf105;

var v:array[1..9] of real;

i,j,kolvo,n:integer;

max:real;

begin

writeln('Введите 9 значений по очереди: ');

for i:=1 to 9 do

read(v[i]);

for j:=1 to 9 do

begin

 for i:=1 to 9 do

   begin

     if (v[j]-v[i]) > 0

     then kolvo:=kolvo+1;

   end;

  if kolvo=8

  then  

  begin

    max:=v[j];

    n:=j;

  end

  else kolvo:=0;

end;

v[n]:= -max;

writeln('Максимальное число с противоположным знаком: ',v[n]);

end.

Написано на языке PascalABC.NET

Answer 2

Для замены максимального элемента массива на его значение с противоположным знаком в Паскале, вам нужно выполнить несколько шагов:

1. Найти максимальный элемент в массиве.
2. Заменить его на значение с противоположным знаком.

Ниже приведен код на языке Pascal (Delphi) для выполнения этих действий:

pascalCopy code
program ReplaceMaxWithOpposite;
var
  v: array[1..9] of Integer;
  i, maxIdx, maxValue: Integer;
begin
  // Заполните массив v данными (например, случайными значениями)
  // или введите его с клавиатуры.
  // Пример:
  // v := [10, -5, 7, 3, -2, 8, 0, -4, 6];

  // Найдем максимальное значение и его индекс
  maxValue := v[1];
  maxIdx := 1;
  for i := 2 to Length(v) do
  begin
    if v[i] > maxValue then
    begin
      maxValue := v[i];
      maxIdx := i;
    end;
  end;

  // Заменим максимальный элемент на его значение с противоположным знаком
  v[maxIdx] := -maxValue;

  // Выведем измененный массив на экран (для проверки)
  writeln('Массив после замены:');
  for i := 1 to Length(v) do
    writeln(v[i]);

  readln;
end.

Обратите внимание, что я предположил, что массив v содержит 9 элементов (v(9)). При необходимости, вы можете изменить размер массива и его значения в соответствии с вашими требованиями.