Пусть в массив 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.
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.