Среди работников даного предприятия найти тех, чья зарплата за месяц ниже средней по предприятию

@ZaRinKa97 · Регистрация: 26.04.2014

Author24 — интернет-сервис помощи студентам

среди работников даного предприятия найти тех, чья зарплата за месяц ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет, с указанием их фамилии, зарплаты, стажа работы и должности.

@JokeR.BY · 14.05.2014, 07:42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses
  Crt;
  
const
  n = 49;
  
type
  bd = record
    FIO : string[40];
    zp : Word; //если беларус, то LongWord :)
    stazh : Byte;
    dolzh : string[30];
  end;
  mass = array of bd;
  
var
  baza : mass;
  count : Byte;
 
procedure figovaja_zp(ar : mass);
var
  sr : Single;
  i : Byte;
begin
  WriteLn('ZP nizhe srednej u:');
  for i := 0 to count - 1 do
    sr := sr + ar[i].zp;
  sr := sr / count;
  for i := 0 to count - 1 do
    if (ar[i].zp < sr) then
      WriteLn(ar[i].FIO);
end;
 
procedure opytn_rabotn(ar : mass);
var
  i : Byte;
begin
  WriteLn('Rabotniki so stazhem bolshe 10 let:');
  for i := 0 to count - 1 do
    if (ar[i].stazh > 10) then
      WriteLn(ar[i].FIO, #9, 'zp=', ar[i].zp, #9, 'stazh: ', ar[i].stazh, #9, ', nachodjaschijsja na dolzhnosti ', ar[i].dolzh);
end;
  
begin
  ClrScr;
{как-нибудь заполняем, читая, например, из файла}
  count := 5; //кол-во реально заполненных записей
  SetLength(baza, count);
  figowaja_zp(baza);
  WriteLn;
  opytn_rabotn(baza);
  ReadLn;
end.

Новые блоги и статьи Все статьи Все блоги /
Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .

@ZaRinKa97 1 / 1 / 0 Регистрация: 26.04.2014 Сообщений: 121

	Среди работников даного предприятия найти тех, чья зарплата за месяц ниже средней по предприятию 13.05.2014, 21:47. Показов 2423. Ответов 1 Метки нет (Все метки) среди работников даного предприятия найти тех, чья зарплата за месяц ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет, с указанием их фамилии, зарплаты, стажа работы и должности. 0

Опции темы

Среди работников даного предприятия найти тех, чья зарплата за месяц ниже средней по предприятию

Решение