Задача и в отделе Y есть 15 сотрудников, а в G 20. В течение месяца каждый сотрудник отработал некоторое количество дней, которое задача как случайная величина знаниями у_n = random (30), n = 1,2 ..., 15 g_k = random (30), k = 1,2, ..., 20. Денна оплата труда d в условных единицах. Налоговая ставка 20% ... Используя процедуры и функции, создавая массива y, g, вывести значение их элементов на экран и выполнить задачу поиска данных для каждого виддилу. 1) Сколько человеко-дня было отработано в каждом отделе?

Program z3; Var y: array [1 ... 15] of real; g: array [1 ... 20] of real; i, d, a, b: integer; sum, sum_2: real; Begin writeln ('Введите оплату труда за день') ; read (d) ; a: = 0; b: = 0; for i : = 1 to 15 do begin y[i] : = random (30) ; if (y[i] < 10) then a: = a + 1; y[i] : = y[i] * d * 0.8; end; for i:=1 to 20 do g[i] : = random (30) ; if (g[i] < 10) then b: = b + 1; g[i] : = g[i] * d * 0.8; for i:=1 to 15 do begin writeln ('Сотрудник y_', i,' - ', y[i]) ; sum: = sum + y[i]; end; writeln; writeln ('Сумма отдела y - ', sum) ; writeln; for i:=1 to 20 do begin writeln ('Сотрудник g_', i,' - ', g[i]) ; sum_2: = sum_2 + g[i]; end; writeln; writeln ('Сумма отдела g - ', sum_2) ; writeln; writeln ('В отделе y ', a, ' сотрудников работало меньше 10 дней') ; writeln; writeln ('В отделе g ', b, ' сотрудников работало меньше 10 дней') ; End.