Регистрация
sema60
31.03.2020 01:43
Информатика
Есть ответ 👍

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

178
354
Посмотреть ответы 1

Ответы на вопрос:

usett
usett
4,4(14 оценок)

program z1;

uses crt;

var a: array [1..7] of integer;

      x,z,i: integer;

begin

  clrscr;

 

  for i: =1 to 7 do

      readln (a[i]);

 

  clrscr;

 

  for i: =1 to 7 do

      write (a[i]: 4);

 

  writeln;

  for i: =1 to 7 do

      if a[i]=49 then x: =i;

 

    z: =a[1];

  a[1]: =a[x];

  a[x]: =z;

 

  for i: =1 to 7 do

      write (a[i]: 4);

 

  readln

end.

Популярно: Информатика