Заполните массив случайными числами в интервале

[0,100] и подсчитайте отдельно среднее значение всех

элементов, которые <50, и среднее значение всех

элементов, которые ≥50.

Пример:

Массив:

3 2 52 4 60

Эргономика (гр. ergon – жұмыс + nomos – заң) – еңбек құралдары мен үдерістерін оңтайландыру арқылы еңбекке қолайлы жағдай жасау мақсатымен адамды (адамдар тобын) және оның қазіргі заманғы өндірістің еңбек үдерістеріне қатысуын зерделейтін ғылыми пән. “Адам – машина (техника‚ бұйым)”‚ “адам – орта” жүйелеріндегі байланыстарды оңтайлы шешу стратегиясын айқындайды.[1] Адам‚ машина және орта күрделі бүтін ретінде қаралуға тиіс екенін‚ мұнда адам жетекші рөл атқаратынын мойындайды. “Адам – машина – орта” кешенін ұтымды жоспарлап‚ енгізу үшін адам мен машинаның үйлесімділігін ескеретін эргономик. талаптарды қамтамасыз ету керек‚ олар: биофизикалық үйлесімділік – машина‚ басқару органдары және адам (оператор) талап етілетін күш-жігер‚ қуат‚ басқару әрекеттерінің жылдамдығы‚ дәлдігі‚ қарқыны тұрғысынан бір-біріне сай келуге тиіс; антрометрикалық үйлесімділік – адамның антропол. (бойы‚ жасы‚ салмағы‚ т.б.) және физиол. ерекшеліктерін ескере отырып, ұтымды ұйымдастырылған жұмыс орнын жасау; техникалық-эстетикалық үйлесімділік – машинаның тартымдылығын қамтамасыз ету. Эргономикалық талаптар адам мен техника арасындағы атқарымдарды бөлу мен келісуге‚ әрекет үдерістеріне (еңбектің сапасына‚ қауырттығына‚ т.б.)‚ әрекет құралдарына (жұмыс орнының жабдығына‚ басқару органдарына‚ т.б.)‚ әрекет жағдайына (микроахуалға‚ шуылға‚ дірілге‚ т.б.) жатады. Олар техниканы жасап‚ өндіріске енгізудің барлық сатыларында ескерілуге тиіс. Белгіленген талаптарға сай келетін эргономик. көрсеткіштер бұйымның жекелеген түрлерін пайдаланудың қолайлылығы мен қауіпсіздігін сипаттауға мүмкіндік береді‚ еңбектің мазмұнын байытып‚ тартымдылығын жақсартуға‚ өнімділігін арттыруға‚ адамның күш-қуатын‚ денсаулығын жұмыс істеу қабілетін сақтауға септігін тигізеді.[2][3][4]

Объяснение:

1)

program arithmeticmean;

var

 i, quantity: integer;

 amount: longint;

 arithmetic_mean: real;

begin

 quantity := 0;

 amount := 0;

 i := 1;

 while i <> 0 do

 begin

   read(i);

   if (i mod 4 = 0) and (i <> 0) then

   begin

     amount := amount + i;

     quantity := quantity + 1;

   end

 end;

 arithmetic_mean := amount / quantity;

 if (quantity <> 0) then

   write(arithmetic_mean)

 else

   write('NO');

end.

2)

program max5;

var

 size, max, counter, i: integer;

begin

 counter := 0;

 max := 0;

 readln(size);

 while counter < size do

 begin

   readln(i);

   if (max < i) and (i mod 5 = 0) then

     max := i;

   counter := counter + 1;

 end;

 write(max);

end.

Объяснение:

1)

program arithmeticmean;  // Название программы

var

 i, quantity: integer;  // Создание целочисленных переменных

i - вводимые с клавиатуры числа; quantity - количество трехзначных чисел.

 amount: longint;  // Создание целочисленной переменной

amount - сумма трехзначных чисел

 arithmetic_mean: real;  // Создание вещественной переменной

arithmetic_mean - среднее арифметическое

begin  // Начало программы

quantity := 0;  // Количество трехзначных чисел = 0

amount := 0;  // Сумма трехзначных чисел = 0

i := 1;  // Переменная i = 1 (делается это для того, чтобы зайти в цикл (выходит какого-то рода обман))

while i <> 0 do  // Пока переменная i ≠ 0

begin  // Начало цикла

  read(i);  // Считываем с клавиатуры значение переменной i

   if (i mod 4 = 0) and (i <> 0) then  // Если остаток от деления = 4 И значение переменной i ≠ 0, тогда

begin  // Начало блока

    amount := amount + i;  // К переменной, хранящей сумму, прибавляется значение переменной i

    quantity := quantity + 1;  // К переменной, хранящей количество, прибавляется значение 1

  end  // Конец блока

end;  // Конец цикла

 arithmetic_mean := amount / quantity;  // Вычисление среднего арифметического (Сумма ÷ количество)

 if (quantity <> 0) then  // Если количество ≠ 0, тогда - проверка, есть ли

числа, подходящие под условие, в последовательности

  write(arithmetic_mean)  // Выводим среднее арифметическое

else  // Иначе

  write('NO');  // Выводим NO

end. // Конец программы

2)

program max5;  // Название программы

var

 size, max, counter, i: integer;  // Создание целочисленных переменных

i - вводимые числа с клавиатуры; size - количество чисел в последовательности; max - максимальное число;counter - переменная счетчик.

begin  // Начало программы

counter := 0;  // Переменная счетчик = 0

 max := 0;  // Максимум = 0

readln(size);  // Считываем количество чисел в последовательности с клавиатуры

while counter < size do  // Пока значение переменной counter < значения переменной size

begin  // Начало цикла

  readln(i);  // Считываем число с клавиатуры

   if (max < i) and (i mod 5 = 0) then   // Если значение переменной max < значения переменной i И остаток от деления на 5 = 0, тогда

     max := i;  // Значение переменной max = значению переменной i

   counter := counter + 1;  // Переменная счетчик + 1

end;  // Конец цикла

write(max);  // Вывод значения переменной max

end. // Конец программы