На предприятии "Дон" работают следующие сотрудники: № п\п Ф.И.О. Должность
1. Логвинов И.И. менеджер
2. Петрова С.Ю. кладовщик
3. Петренко Т.П. рабочий
4. Адаменко П.П. менеджер
5. Кузьминец Т.Ю. рабочий
6. Тараненко М.М. экспедитор
7. Измайлов И.М. экспедитор
8. Ростова Т.Ю. менеджер
9. Галкин А.А. экспедитор
Сотрудники предприятия получают почасовую заработную.
Директором предприятия установлены следующие тарифы почасовой оплаты:
Должность Тариф в час (р.)
менеджер 40,00
кладовщик 30,30
экспедитор 30,50
рабочий 30,00
В январе месяце сотрудниками отработано:
Ф.И.О. Отработано всего
Логвинов И.И. 20
Петренко Т.П. 23
Адаменко П.П. 21
Кузьминец Т.Ю. 19
Тараненко М.М. 28
Измайлов И.М. 24
Ростова Т.Ю. 22
Галкин А.А. 25
Петрова С.Ю. 24
Рабочий день сотрудников составляет 8 часов 15 минут.
ЗАДАНИЕ:
1. Составить ведомость начисления заработной платы сотрудников за январь месяц. Информация о тарифах оплаты (с указанием вида валюты), штатном расписании предприятия и ведомость начисления заработной платы должны быть расположе-ны на разных листах книги табличного процессора. Формульные выражения, при-веденные в ведомости, не должны быть привязаны к конкретному значению окла-да. Тариф определяется автоматически по должности работника.
2. Вычислить при функций табличного процессора среднюю величину зара-ботной платы менеджеров.
3. Построить диаграмму начисления заработной платы и числа отработанных дней работниками предприятия.
program znanijacom;
const
n = 5;
type
mas = array[1..n] of integer;
var
a: mas;
i: integer;
max: integer;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);
writeln('вывод элементов массива:');
for i:=1 to n do write(a[i]:3);
max := a[1];
for i:=1 to n do if a[i] > max then max := a[i];
writeln(' максимальный элемент: ', max);
writeln('массив после изменений: ');
for i:=1 to n do begin
if a[i] = max then a[i] := a[i]*i;
write(a[i]:3);
end;
end.
Объяснение: