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

Question 1

Question 2

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

Question 3

Задачку решите пожалуйста

Question 4

Вообщем решил данную проблему

Question 5

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

Question 6

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.

Question 7

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

Question 8

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

Question 9

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

Question 10

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.

Question 11

Вот так будет правильно

Question 12

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

Question 13

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

Question 14

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

Question 15

Если просто условие, то вот оно:
if (a[i]<0) AND (a[i] mod 2 =1) then a[i]:=a[i]*2

Question 16

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