Определить среднюю зарплату сотрудников фирмы

@MoSanya · Регистрация: 16.10.2011

Инфа о фамилии и зарплате десяти сотрудников, каждая строка содержит фамилию и зарплату через пробел. Определить среднюю зарплату сотрудников фирмы...

@19vitek · 06.11.2011, 13:58

как вариант.

Pascal

 var
    i,zrp,poz,n:Integer;
    st,zrp_s:string;
    s:Integer;
begin
  s:=0;
  for i:=1 to 10 do
  begin
    write('wwedite FIO i ZRP sheres probel sotrudnika № ',i,'=');readln(st);
    poz:=Pos(' ',st);
    zrp_s:=Copy(st,poz+1,Length(st));
    val(zrp_s,zrp,n);
    s:=s+zrp;
  end;
 Writeln('sr_zrp=',s/10:7:2);
 Readln;
end.

@MoSanya · 06.11.2011, 20:25 **[ТС]**

19vitek Спасибо большое

@MoSanya 6 / 6 / 2 Регистрация: 16.10.2011 Сообщений: 226
		1
	Определить среднюю зарплату сотрудников фирмы 06.11.2011, 10:44. Показов 1501. Ответов 2 Метки нет (Все метки) Инфа о фамилии и зарплате десяти сотрудников, каждая строка содержит фамилию и зарплату через пробел. Определить среднюю зарплату сотрудников фирмы... __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@MoSanya 6 / 6 / 2 Регистрация: 16.10.2011 Сообщений: 226
	06.11.2011, 20:25 [ТС]	3
	19vitek Спасибо большое 0

Опции темы

Определить среднюю зарплату сотрудников фирмы

Решение