Как Удвоить все отрицательные нечётные числа в паскале ( Массив)

Кхм что то не так.не могли бы вы посодействовать с полнйо задачей?Дано естественное число N и последовательность целых чисел a1 a2 an данные случайным образом из диапазона [-35;25]. Удвоить все отрицательные числа нечётные этой последовательности. Решить задачку для n=10

я вижу, что вы теснее поправили. НО! условие на нечетность   только в остатке 1!!! А вы дозволяете хоть какое хорошее от нуля, а вдруг это будет 2 либо 4?

var a: array [1..10] of real; // возьмем массив из 10 чисел    i,x      :byte;begin  randomize;  for i:=1 to 10 do //наполняем начальный массив случайными числами (до 10)  begin    a[i]:=random(10)-10;    write (' ' ,a[i]);  end;  writeln ();  for i:=1 to 10 do  begin        if (a[i] < 0) and (a[i] <> 0) then          a[i]:=a[i]*a[i];          writeln ('[ ', i, ' ]', ' Результат удвоения: ',a[i]);  end;end.

Если в рандоме указать не - 10 а -5 то в массиве будут и положительные числа. Код их трогать не будет, а будет умножать только отрицательные нечетные

Ахаха я лооол, вы были правы

Прошу помилование, ошибку допустил ^^

var a: array [1..10] of integer; // возьмем массив из 10 чисел    i,x      :byte;begin  randomize;  for i:=1 to 10 do //заполняем исходный массив случайными числами (до 10)  begin    a[i]:=random(10)-5;    write (' ' ,a[i]);  end;  writeln ();  for i:=1 to 10 do  begin        if (a[i] < 0) and (a[i] mod 2 <> 0 ) then          a[i]:=a[i]*a[i];          write ( ' ',a[i]);  end;end.

Вот так будет верно

в цикле УДВОЕНИЕ, а не возведение во вторую ступень. Верно в задачке   a[i]:=a[i]*2

Поспешишь - людей насмешишь =(

Решите превосходнее чуток ниже задачу. Я её написал под другой коментарий, пожалуйста. По вашим решениям всё одинаково что то не выходит