Пусть в массив A хранятся зарплаты N сотрудников.Тем сотрудникам , у которых зарплата меньше минимальной-возможной суммы, поднимем зарплату до этого минимального значения minizp.

const n=30; {30 сотрудников} vara: array [1..n] of integer; i, minizp: integer; begin write('Мин. зарплата '); readln(minizp); for i:=1 to n do begin a[i]:=random(25001)+5000; {Зарплата в случайном значении от 5000 до 30000} if a[i]< minizp then writeln('Зарплата ', i, '-го сотрудника = ', minizp, ' р. | Старая зарплата = ', a[i]) else writeln('Зарплата ', i, '-го сотрудника = ', a[i], ' р.'); end; end.