Определить общую и среднюю зарплату

@ArtemPerm · Регистрация: 29.08.2013

РЕБЯТА НУ ПОМОГИТЕ УЖЕ ПОЖАЛУЙСТА УМОЛЯЮ ВАССС
В двухмерном массиве хранится информация о зарплате 18 человек за каждый месяц года (за январь - первом столбце, за февраль – во втором столбце и т.д.). Определить:
a. общую зарплату, выплаченную в июне;
b. среднюю зарплату за каждый месяц.

@barbudo59 · 02.11.2013, 00:59

Значит, массив А[18, 12]
а) в цикле считать сумму в 6 столбце
б) в циклах считать сумму в каждом столбце и делить на 18

Удачи!

@ArtemPerm · 02.11.2013, 01:05 **[ТС]**

Пожалуйста сможете написать? ну очень прошу блин ну пожалуйстааааааа умоляю вас

Добавлено через 4 минуты
Пожалуйста сможете написать? ну очень прошу блин ну пожалуйстааааааа умоляю вас
ну помогитееееееееееееее

Новичок · 02.11.2013, 01:26

Не по теме:

Сообщение от ArtemPerm

блин ну пожалуйстааааааа

А знаете ли вы,что безграмотность порой бесит?

@ArtemPerm · 02.11.2013, 01:30 **[ТС]**

да я понимаю, ну пожалуйста хоть кто-то помогите...

@konsul777 · 02.11.2013, 03:16

первая часть задачи:

Pascal

uses crt;
var
m:array[1..18,1..12] of real;
z1,z2:real;
i,j:byte;
begin
clrscr;
randomize;
for i:=1 to 18 do
 for j:=1 to 12 do
  m[i,j]:=random(1000);
z1:=0; z2:=0;
for i:=1 to 18 do
 for j:=1 to 12 do
  if j= 6 then z1:=z1+m[i,j];
writeln('obschaja zarplata za ijun=',z1:4:2);
readln;
end.

@ArtemPerm · 02.11.2013, 06:47 **[ТС]**

konsul777, а можете еще вторую часть написать плиз

@konsul777 · 02.11.2013, 11:34

Pascal

uses crt;
var
m:array[1..18,1..12] of real;
z1,z2:real;
i,j,month:byte;
begin
clrscr;
randomize;
for i:=1 to 18 do
 for j:=1 to 12 do
  m[i,j]:=random(1000);
z1:=0; z2:=0;
for i:=1 to 18 do
 for j:=1 to 12 do
  if j= 6 then z1:=z1+m[i,j];
writeln('obschaja zarplata za ijun=',z1:4:2);
for month:=1 to 12 do
begin
 for i:=1 to 18 do
  for j:=1 to 12 do
  if month=j then z2:=(z2+m[i,j])/18;
  writeln('sr.zarplata za',' ',month,'mesjac=',z2:4:2);
  z2:=0;
end;
readln;
end.

@barbudo59 · 02.11.2013, 14:06

konsul777, вот эта конструкция удивляет:

Сообщение от konsul777

for j:=1 to 12 do
if j= 6 then z1:=z1+m[i,j];

напрашивается простой вариант

Pascal

1	z1:=z1+m[i,6];

Добавлено через 6 минут
а также вместо

Сообщение от konsul777

for month:=1 to 12 do
begin
for i:=1 to 18 do
for j:=1 to 12 do
if month=j then z2:=(z2+m[i,j])/18;
writeln('sr.zarplata za',' ',month,'mesjac=',z2:4:2);
z2:=0;
end;

Pascal

for month:=1 to 12 do
begin
 for i:=1 to 18 do
   z2:=(z2+m[i,month])/18;
 writeln('sr.zarplata za',' ',month,'mesjac=',z2:4:2);
 z2:=0;
end;

@konsul777 · 02.11.2013, 14:20

barbudo59, да, вы правы...
да и можно было обойтись без переменной month...

Pascal

for j:=1 to 12 do
begin
 for i:=1 to 18 do
   z2:=(z2+m[i,j])/18;
 writeln('sr.zarplata za',' ',j,'mesjac=',z2:4:2);
 z2:=0;
end;

вместо вот этого куска

Pascal

for month:=1 to 12 do
begin
for i:=1 to 18 do
for j:=1 to 12 do
if month=j then z2:=(z2+m[i,j])/18;
writeln('sr.zarplata za',' ',month,'mesjac=',z2:4:2);
z2:=0;
end;

@ArtemPerm 2 / 0 / 0 Регистрация: 29.08.2013 Сообщений: 29
		1
	Определить общую и среднюю зарплату 02.11.2013, 00:50. Показов 958. Ответов 9 Метки нет (Все метки) РЕБЯТА НУ ПОМОГИТЕ УЖЕ ПОЖАЛУЙСТА УМОЛЯЮ ВАССС В двухмерном массиве хранится информация о зарплате 18 человек за каждый месяц года (за январь - первом столбце, за февраль – во втором столбце и т.д.). Определить: a. общую зарплату, выплаченную в июне; b. среднюю зарплату за каждый месяц. 0

@barbudo59 Я не экстрасенс 382 / 339 / 34 Регистрация: 22.01.2013 Сообщений: 1,126
	02.11.2013, 00:59	2
	Значит, массив А[18, 12] а) в цикле считать сумму в 6 столбце б) в циклах считать сумму в каждом столбце и делить на 18 Удачи! 0

@ArtemPerm 2 / 0 / 0 Регистрация: 29.08.2013 Сообщений: 29
	02.11.2013, 01:05 [ТС]	3
	Пожалуйста сможете написать? ну очень прошу блин ну пожалуйстааааааа умоляю вас Добавлено через 4 минуты Пожалуйста сможете написать? ну очень прошу блин ну пожалуйстааааааа умоляю вас ну помогитееееееееееееее 0

Новичок
	02.11.2013, 01:26 #4
	Не по теме: Сообщение от ArtemPerm блин ну пожалуйстааааааа А знаете ли вы,что безграмотность порой бесит? 0

@ArtemPerm 2 / 0 / 0 Регистрация: 29.08.2013 Сообщений: 29
	02.11.2013, 01:30 [ТС]	5
	да я понимаю, ну пожалуйста хоть кто-то помогите... 0

@ArtemPerm 2 / 0 / 0 Регистрация: 29.08.2013 Сообщений: 29
	02.11.2013, 06:47 [ТС]	7
	konsul777, а можете еще вторую часть написать плиз 0

Опции темы