Пусть в массив A хранятся зарплаты N сотрудников.Тем сотрудникам , у которых зарплата...

Question

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

Answer 1

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.

---