Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
djana-tlt
0 / 0 / 0
Регистрация: 04.04.2013
Сообщений: 5
1

Найти количество месяцев, для которых экономия фонда заработной платы оказалась выше среднего значения

04.04.2013, 21:56. Просмотров 1019. Ответов 1
Метки нет (Все метки)

Известны размеры экономии фонда заработной платы на
предприятии за каждый из N месяцев года. Определить среднее
значение размера экономии фонда заработной платы за
рассматриваемый период. Найти количество месяцев, для которых
экономия фонда заработной платы оказалась выше среднего
значения.

Если поможете, спасибками засыплю
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2013, 21:56
Ответы с готовыми решениями:

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

Поиск максимального значения заработной платы Pascal Record
Я написал программу, которая заполняет различные данные о рабочих в таблицу...

Массив: Вывести список цехов, в которых величина заработной платы на одного рабочего более ZR руб.
Пожалуйста помогите решить!!! Задание 6 Дан массив t1, ... , t20. Заменить...

Найти количество элементов массива, значение которых больше среднего арифметического
Дан массив. Найти количество элементов, значение которых больше среднего...

Найти количество элементов, которые меньше среднего значения
Как правильно записать чтобы работало условие Program Lab; uses crt; const...

1
SladkayaVata
271 / 187 / 173
Регистрация: 06.06.2012
Сообщений: 322
05.04.2013, 22:18 2
Лучший ответ Сообщение было отмечено djana-tlt как решение

Решение

как то так вроде
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
const
  n = 12;
 
type
  mas = array[1..n] of integer;
 
var
  a: mas;
  x, y: integer;
 
procedure print_mas;
var
  i: integer;
begin
  for i := 1 to n do
    write(a[i]:2);
  writeln;
end;
 
procedure init_mas;
var
  i: integer;
begin
  for i := 1 to n do
    a[i] := random(10);
end;
 
function average(x, y: integer): real;
var
  i, summ, f: integer;
begin
  f := 0;
  if (x < 1) or (y < 1) or (x > 12) or (y > 12) then begin writeln('не правильный ввод');exit; end else
  if x > y then 
  begin
    for i := x to n do
    begin
      f := f + 1;
      summ := summ + a[i];
    end;
    for i := 1 to y do
    begin
      summ := summ + a[i];
      f := f + 1;
    end;
  end else
    for i := x to y do
    begin
      summ := summ + a[i];
      f := f + 1;
    end;
  average := summ / f;
end;
 
procedure howmany(x, y: integer);
var
  i, k: integer;
begin
  k := 0;
  if (x < 1) or (y < 1) or (x > 12) or (y > 12) then begin writeln('не правильный ввод');exit; end else
  if x > y then 
  begin
    for i := x to n do
      if a[i] > average(x, y) then k := k + 1;
    for i := 1 to y do
      if a[i] > average(x, y) then k := k + 1; 
  end else
    for i := x to y do
      if a[i] > average(x, y) then k := k + 1;
  writeln('кол-во месяцев где экономия оказалась выше средней за период ', k);
end;
 
begin
  writeln('введите период x,y (1..12)');
  readln(x, y);
  init_mas;
  writeln('Экономия по месяцам');
  print_mas;
  writeln('Средняя экономия за указанный период x,y: ', average(x, y));
  howmany(x, y);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2013, 22:18

Найти количество элементов, величина которых меньше среднего арифметического соседних с ним
Дано линейная таблица, содержащая N вещественных чисел. Составить алгоритм...

Найти количество элементов массива, абсолютное значение которых больше среднего арифметического
Задан целочисленный массив, состоящий из 10 эелементов.Найти кол-во элементов,...

Найти и вывести количество элементов массива, значение которых больше среднего арифметического
Дан двумерный квадратный массив из 16 элементов. Написать программу, которая...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru