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

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