Сделать массив из 20 случайных чисел в спектре от -30 до

Массив будет состоять из целых чисел на интервале [-30;0]. Обозначим a[i] значение элемента массива а. Формироваться он будет в первом цикле случайным образом с помощью оператора random, который генерирует случайные числа по формуле: оператор:= random (max-min+1)+min. Во втором цикле выведем сформированный в первом цикле массив на экран. В 3-ем цикле будем разыскивать нечетные числа и строить их в квадрат, а в четвертом цикле выведем новый массив на экран. Программка на языке программирования Pascal ABC может выглядеть так: program zadaca; uses crt; var a: array[-30..0] of integer; Описание массива i:integer; begin for i:=-30 to 0 do a[i]:=random(0-(-30)+1)+(-30); Формирование массива случайным образом for i:=-30 to 0 do Вывод сформированного массива на экран write(a[i], ); writeln; for i:=-30 to 0 do Поиск нечетных элементов массива и возведение их в квадрат if a[i] mod 2lt;gt;0 then a[i]:=sqr(a[i]); for i:=-30 to 0 do Вывод на экран частей нового массива write(a[i], ); end.