Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
djana-tlt
0 / 0 / 0
Регистрация: 04.04.2013
Сообщений: 5
#1

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

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

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

Если поможете, спасибками засыплю
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2013, 21:56
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти количество месяцев, для которых экономия фонда заработной платы оказалась выше среднего значения (Pascal ABC):

Определить количество абитуриентов, средний балл которых выше среднего балла по институту - Pascal
Помогите составить программу. Дана ведомость абитуриентов, сдавших вступительные экзамены в институт (ее можно дополнить): Ф.И.О. ...

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

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

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

Найти количество элементов, которые меньше среднего значения - Pascal
Как правильно записать чтобы работало условие Program Lab; uses crt; const m=4;n=5; var a:array of byte; i,j:byte; sz,s:real; ...

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

1
SladkayaVata
271 / 187 / 60
Регистрация: 06.06.2012
Сообщений: 321
05.04.2013, 22:18 #2
как то так вроде
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
Привет! Вот еще темы с ответами:

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

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

В массиве Х(N) найти количество элементов, которые меньше значения среднего арифметического - Pascal ABC
2. В массиве Х(N) найти количество элементов, которые меньше значения среднего арифметического элементов массива. По 2 задаче есть...

Вывести список абитуриентов, средний балл которых выше среднего балла по университету - Pascal ABC
Ведомость абитуриентов, сдавших вступительные экзамены в университет, содержит: Ф.И.О. абитуриента, баллы. Определить средний балл по...


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

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

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