сформировать и вывести на экран последовательность из n элементов заданным датчиков случайных чисел на интервале[-20;20]. Заменить знак элементов на противоположный. В новом массиве найти максимальный элемент.

uses crt;type massiv = array [1..100] of integer;var mass : massiv; n , i : integer;begin clrscr; // очищаем экран randomize; // включаем генератор случайных чисел. write('Введите кол-во элементов массива : '); readln(n); for i:=1 to n do begin mass[i] := random(58) - 23; write(mass[i], ' | '); end; readln;end.