2 / 0 / 0
Регистрация: 29.08.2013
Сообщений: 29
1

Определить среднюю зарплату за каждый месяц

19.11.2013, 19:30. Показов 857. Ответов 1
Метки нет (Все метки)

1. В двухмерном массиве хранится информация о зарплате 18 человек за каждый месяц года (за январь - первом столбце, за февраль – во втором столбце и т.д.). Определить: среднюю зарплату за каждый месяц.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a:array [1..12,1..18] of integer;
    i,j:integer;
    sr1,sr2,sr3,sr4,sr5,sr6,sr7,sr8,sr9,sr10,sr11,sr12:real;
begin
randomize;
  for i:=1 to 12 do
   for j:=1 to 18 do
   a[i,j]:=random(1000);
sr1:=0; sr2:=0; sr3:=0; sr4:=0; sr5:=0; sr6:=0; sr7:=0; sr8:=0; sr9:=0; sr10:=0; sr11:=0; sr12:=0;
For i:=1 to 12 do begin
For j:=1 to 18 do begin
sr[i]:=a[i,j]+sr[i];
end;
end;
For i:=1 to 12 do begin
sr[i]:=sr[i]/12;
write(sr[i],"_");
end;
 writeln (sr1,' ',sr2,' ',sr3,' ',sr4,' ',sr5,' ',sr6,' ',sr7,' ',sr8,' ',sr9,' ',sr10,' ',sr11,' ',sr12);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2013, 19:30
Ответы с готовыми решениями:

Определить среднюю зарплату за каждый месяц
В двумерном массиве храниться информация о зарплате 18 сотрудников фирмы за каждый месяц года....

Определить зарплату преподавателя за месяц
Здравствуйте! Помогите, пожалуйста, решить такую задачу: Преподаватель работает в неделю d дней по...

Определить среднюю зарплату работника
Цех по ремонту бытовой техники имеет каждый день прибыль Р,с которой платит налог a%. с части...

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

1
Супер-модератор
6108 / 2847 / 1299
Регистрация: 04.03.2013
Сообщений: 5,738
Записей в блоге: 1
20.11.2013, 11:15 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
var a:array [1..18,1..12] of integer;
    i,j:integer;
    sr : array[1..12] of real;
    
begin
  for j := 1 to 12 do sr[j] := 0;
  randomize;
  writeln('Янв.':8, 'Фев.':8, 'Март':8, 'Апр.':8, 'Май':8, 'Июнь':8,
          'Июль':8, 'Авг.':8, 'Сен.':8, 'Окт.':8, 'Нояб.':8, 'Дек.':8);
  for i:=1 to 18 do
  begin
    for j:=1 to 12 do
    begin
      a[i,j]:=random(1000) + 1;
      write(a[i,j]:8);
      sr[j] := sr[j] + a[i,j] {сумма}
    end;
    writeln
  end;
  writeln('средние зарплаты за месяц:');
  For i:=1 to 12 do
  begin
    sr[i] := sr[i] / 18;
    write(sr[i]:8:2)
  end
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.11.2013, 11:15
Помогаю со студенческими работами здесь

Определить выручку фирмы за каждый месяц
Составить программу, которая определяет выручку фирмы за каждый месяц. Результатом работы программы...

Вычислить среднюю зарплату по мужчинам и по женщинам
В типизированном файле записи вида Record Name:string; Pol:char("м" или "ж"); Zarp:integer;...

Определить выручку фирмы за каждый месяц. Создать блок-схему
Уважаемые программисты, помогите пожалуйста построить блок-схему type printer=record ...

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

Определить среднюю зарплату фирмы и сотрудника за месяц
В двумерном массиве хранится информация о зарплате 30 работников фирмы за 12 месяцев (за январь –...

Определить зарплату за каждый месяц
Подскажите, пожалуйста, не понимаю, как считать. Задание: Определить зарплату каждого...


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

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

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