ЗАполните массив 12-ю случайными целыми числами промежутка [-15;20]. Выведите его в стороке. Все элементы с четными значениями уменьшите в 5 раз, аостальные - увеличьте в 50. Выведите новый массив. Помогите пожалуйста.
var a:array[1..12]of integer; i:integer; begin for i:=1 to 12 do a:=random(36)-15; for i:=1 to 12 do write(a,' '); writeln; for i:=1 to 12 do if a mod 2 = 0 then a:=(a div 5) else a:=a*50; for i:=1 to 12 do write(a,' '); end.
