Сформировать и вывести на экран последовательность из 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.