Задачка и в отделе Y есть 15 служащих, а в G

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

Задать свой вопрос
1 ответ
Program z3;  Var y: array [1..15] of real;      g: array [1..20] of real;      i,d: integer; sum, sum_2: real;Begin  writeln('Введите оплату труда за денек'); read(d);  for i := 1 to 15 do    y[i] := random (30) * d * 0.8;      for i:=1 to 20 do    g[i] := random (30) * 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;    End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт