Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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