• 
  • 29 December 2020
  Информатика
  • Автор: Coolyar

  

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

• 
  • 29 December 2020
  • Ответ оставил: lingvini2013

  const N = 100;

  var a: array [1..N] of real;  

         median: real;

         sum: real;

         count_more, i: integer;

         

  begin

         randomize;

         for i:= 1 to N do a[i]:= random(1, 1000);

         

         sum:= 0;

         

         for i:= 1 to N do sum:= sum + a[i];

         

         median:= sum / N;

         

         count_more:= 0;

         

         for i:= 1 to N do begin

                 if a[i] > median then inc(count_more)  

                 else a[i]:= a[i] * 1.1;

         end;

         

         write(count_more);

  end.

  0
• 
  • 29 December 2020
  • Ответ оставил: petyaGavrikov

  const n = 10;

  var a: array [1..N] of real;  

     i, k: integer;

     s: real;

  begin

  randomize;

  for i:=1 to n do  

   begin

   a[i]:= random(10000, 50000);

   write(a[i]:8:2,' ');

   end;

  writeln;

  s:=0;

  for i:=1 to n do s:=s+a[i];

  s:=s/n;

  writeln('ср.=',s:8:2);

  k:=0;

  for i:=1 to n do

   if a[i]<s then a[i]:=a[i]*1.1

   else if a[i]>s then k:=k+1;

  writeln('k=',k);

  for i:=1 to n do write(a[i]:8:2,' ');

  writeln;

  end.

  Пример:

  34973.00 16546.00 13691.00 41315.00 24650.00 44459.00 18117.00 37906.00 19255.00 17842.00  

  ср.=26875.40

  k=4

  34973.00 18200.60 15060.10 41315.00 27115.00 44459.00 19928.70 37906.00 21180.50 19626.20

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (19.09.2025) наш сайт содержит 109575 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы