Задача по информатике на массивы на языке Паскаль
Известны данные о годовой заработной плате сотрудников предприятия за 2019 год. Определить, кто из работников имел ЗП выше среднего. Какова разница между самой высокой и самой низкой ЗП.
Входные данные: N - количество сотрудников предприятия. Z - массив сведений о ЗП (ЗП – случайное число в интервале [100 000, 1 000 000]).
Вывод: 1) средний уровень ЗП;
2) номера сотрудников с ЗП выше среднего (в строчку, через запятую);
3) разница между уровнем самой высокой и самой низкой ЗП.
Написал на том, что было под рукой: 1C
Если Квартира > ЭтажейВДоме * КвартирНаЭтаже Тогда
Сообщить("Нет такой квартиры в доме, мало этажей!");
ИначеЕсли Квартира <= КвартирНаЭтаже Тогда
Сообщить("Живет на первом этаже");
Иначе
ЖиветНа = Цел(Квартира / КвартирНаЭтаже);
ОстатокЭт = Квартира%КвартирНаЭтаже;
Если ОстатокЭт>0 Тогда //
ЖиветНа = ЖиветНа+1;
КонецЕсли;
Если ЖиветНа%2=0 И ЖиветНа=ЭтажейВДоме Тогда // это четный и последний
ВыходитьНа = ЖиветНа-1;
ИначеЕсли ЖиветНа%2=0 Тогда // четный в НЕчетный этаж
ВыходитьНа = ЖиветНа+1;
Иначе
ВыходитьНа = ЖиветНа;
КонецЕсли;
Сообщить(" Выйдет на: "+ВыходитьНа);
КонецЕсли;
2. Сохранять правильное положение рук на мыши и клавиатуре, при этом желательно использовать эргономические клавиатуры (Natural или Anti-RSI) и коврики со специальной подставкой для руки
3. Не пользоваться ЭЛТ-мониторами, только ЖК\IPS
4. По одному пользователю на компьютер (т.е. вдвоём за одним компьютером не сидеть)
5. Запускать программы только из белого списка разрешённых программ; впрочем, в этот список можно добавить проигрыватель виртуальных машин и запускать в нём что угодно.
6. Не кривляться на стуле, ага