ОДНОМЕРНЫЕ МАССИВЫ Pascal

[serafima_92]

Помогите пожалуйста решить задачу Подсчитать среднемесячную зарплату сотрудника предприятия. Дан объем продукции, выпущенной заводом за год (помесячно). Найти наименьший объем. В качестве результата вывести номер месяца и объем выпущенной продукции.

[Alex Cones]

Подсчитать среднемесячную зарплату сотрудника предприятия.

, но

Дан объем продукции

. И как мы собираемся искать з/п?

[Utkin]

Ну задайте массив Objem[] число элементов 12.

var
     Objem: array [1..12] of Integer;

Вносите в этот массив объем продукции.
Затем в цикле находите минимальный элемент массива (и таких вопросов и ответов на форуме огромная куча).
Собственно все.
Зарплату на основании имеющихся данных установить невозможно.
А среднемесячная зарплата считается так:
Складываете зарплату за последние 3 месяца и делите ее на 3. Это в том случае если он не болел и не уходил в отпуск (кажись раньше считали так).

[Stilet]

Подсчитать среднемесячную зарплату сотрудника предприятия

Детка, ты хоть представляешь себе как ЗП считается? Там столько нужно учесть...
Наработки есть?

[serafima_92]

среднюю зарплату я могу найти, а как сюда объем продукции припиявить не знаю

Program Pr1; 
Uses crt; 
Var 
i:integer; 
p:array [1..12] of Integer; 
S:real; 

Begin 
S:=0; 
For i:=1 to 12 do 
Begin 
Writeln('Введите зарплату за ' ,i, ' месяц '); 
Readln(p[i]); 
S:=(S+p[i])/12; End; 
Writeln('Средняя зарплата S=',S:8:2,i); 
readln;
End.

[Utkin]

Так считается среднее значение для 12 чисел, но никак не зарплата. И второе объем выпускаемой продукции напрямую никак не связан с зарплатой. Только в случае если используется сдельная форма оплаты, но и то есть всяческие оговорки в трудовом кодексе . А если человек болел полгода, как Вы посчитаете получку? Это не так просто как Вам кажется.

[serafima_92]

Так как же быть со средней зарплатой мне, судя по всему мою программку не примет препод