Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
ArtemPerm
2 / 0 / 0
Регистрация: 29.08.2013
Сообщений: 29
1

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

19.11.2013, 19:30. Просмотров 243. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2013, 19:30
Ответы с готовыми решениями:

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

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

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

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

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

1
ildwine
Супер-модератор
2989 / 1871 / 1224
Регистрация: 04.03.2013
Сообщений: 4,570
Записей в блоге: 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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2013, 11:15

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

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

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


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

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

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