1 / 1 / 3
Регистрация: 02.03.2015
Сообщений: 58
1

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

06.04.2015, 12:14. Показов 1286. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В массиве M[N] записанны оклады работников предприятия. Вывести на экран средний оклад по предприятию и номера тех работников, чьи оклады ниже среднего.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2015, 12:14
Ответы с готовыми решениями:

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

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

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

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

3
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
06.04.2015, 12:46 2
Pascal
1
2
3
4
5
6
sum:=0;
For i:=1 to N do sum:=sum+M[i];
Sr:=sum/N;
Writeln(Sr);
For i:=1 to N do
  If M[i]<Sr then Writeln(i);
0
1 / 1 / 3
Регистрация: 02.03.2015
Сообщений: 58
06.04.2015, 14:51  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const N=10;
var M: array[1..N] of Real;
    Sum,Average: Real;
    i: integer;
begin
  Writeln;
  randomize;
  { Заполнить массив }
  For i:=1 to N do M[i]:=random*10000;
  { Весь список }
  For i:=1 to N do
    Writeln('Rabotnik ',i,' poluchil ',M[i]:5:2);
  { Подсчет средней зарплаты }
  Sum:=0;
  For i:=1 to N do Sum:=Sum+M[i];
  Average:=Sum/N;
  Writeln('  Srednyaya zarplata = ',Average:5:2);
  { Список малооплачиваемых работников }
  For i:=1 to N do
    if M[i]<Average then
      Writeln('Rabotnik ',i,' poluchil ',M[i]:5:2);
  Readln;
end.
0
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
06.04.2015, 15:09 4
Объедините три первых цикла в один.
0
06.04.2015, 15:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2015, 15:09
Помогаю со студенческими работами здесь

Среди работников данного предприятия найти тех, чья заработная плата за месяц ниже средней по предприятию
Разработать программу: -записи подготовленных данных во внешний файл с именем dan.dat; -обработки...

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru