Определить средний стаж работы и вывести все сведения о сотрудниках, стаж которых выше среднего.

@DronoV · Регистрация: 07.11.2018

Фамилия
Имя
Отчество
Должность
Пол
Дата приема на работу
Определить средний стаж работы и вывести
все сведения о сотрудниках, стаж которых
выше среднего.

@Sun Serega · 09.11.2018, 13:28

Pascal

type
  Сотрудник = record
    
    Фамилия: string;
    Имя: string;
    Отчество: string;
    Должность: string;
    Пол: boolean;
    Дата_приема_на_работу: System.DateTime;
    
  end;
 
begin
  
  var a: array of Сотрудник;
  //ToDo заполните этот массив
  
  var now := System.DateTime.Now;
  var avr := new System.TimeSpan(System.Convert.ToInt64(a.Average(c->(now-c.Дата_приема_на_работу).Ticks)));
  
  var avr_experience := now-avr;
  a.Where(c->c.Дата_приема_на_работу >= avr_experience)
  .PrintLines;
  
end.

@DronoV 0 / 0 / 0 Регистрация: 07.11.2018 Сообщений: 13
		1
	Определить средний стаж работы и вывести все сведения о сотрудниках, стаж которых выше среднего. 09.11.2018, 11:53. Показов 2396. Ответов 1 Метки нет (Все метки) Фамилия Имя Отчество Должность Пол Дата приема на работу Определить средний стаж работы и вывести все сведения о сотрудниках, стаж которых выше среднего. 0

Опции темы