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

program zz1;

const n=10;

var mas:array[1 ... n] of integer;

i:integer;

begin

for i:=1 to n do

mas[i]:=random (61) - 35; / /заполняем массив случайными числами

for i:=1 to n do

write (mas[i],' '); / /выводим их на экран

for i:=1 to n do

if (mas[i] mod 2=-1) then mas[i]:=mas[i]*2; / /умножаем на 2 те, которые отрицательные и нечетные

writeln; / /переходим на новую строку

for i:=1 to n do

write (mas[i],' '); / /выводим числа на экран

end.