1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число 100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!

1)var i:integer;a:array[1..15] of integer;beginrandomize;for i:=1 to 15 do a[i]:=random(10)-10;for i:=1 to 15 do write(' ',a[i]);writeln(' ');for i:=1 to 15 do if a[i] mod 2=0 then a[i]:=100;for i:=1 to 15 do write(a[i],' ');end.2)var i:integer;a:array[1..15] of integer;beginrandomize;for i:=1 to 15 do a[i]:=random(10)-10;for i:=1 to 15 do write(' ',a[i]);writeln(' ');for i:=1 to 15 do a[i]:=a[i]-2*a[i];for i:=1 to 15 do write(a[i],' ');end.