Преобразовать массив А, прибавив к каждому положительному элементу максимальный…

var a: array [1… 100] of integer; i,n,min: integer; begin readln (n); for i: =1 to n do readln (a[i]); min: =-32000; for i: =1 to n do if (min0 then a[i]: =a[i]+min; writeln (a[i]); end; end.