В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
ramina25
ramina25
30.03.2020 21:52 •  Информатика

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

Показать ответ
Ответ:
mark086
mark086
06.10.2020 16:52
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота