program Numfind;
uses
System.SysUtils;
var
a: array [1..10] of Integer; // 1..10 размерность массива можно изменять, программа будет работать правильно
i, s: Integer;
begin
Randomize;
for i := Low(a) to High(a) do
a[i] := - 25 + Random (151);
WriteLn ('Массив чисел:');
for i := Low(a) to High(a) do
Write (a [i], ' ');
s := 0;
WriteLn;
WriteLn;
WriteLn ('Выбрано: ');
for i := Low(a) to High(a) do begin // цикл выбора чисел больше 20
if (a [i] > 20) then begin
s := s + a [i];
Write (A [i], ' ');
end;
end;
WriteLn;
WriteLn ('Сумма чисел больше 20 = ', s);
s := 0;
WriteLn;
WriteLn ('Выбрано: ');
for i := Low(a) to High(a) do begin // цикл выбора чисел меньше 100
if (a [i] > 0) and (a [i] < 100) then begin
s := s + a [i];
Write (A [i], ' ');
end;
end;
WriteLn;
WriteLn ('Сумма чисел меньше 100 = ', s);
s := 0;
WriteLn;
WriteLn ('Выбрано: ');
for i := Low(a) to High(a) do begin // цикл выбора чисел кратных 3
if (a [i] > 0) and (a [i] mod 3 = 0) then begin
s := s + a [i];
Write (A [i], ' ');
end;
end;
WriteLn;
WriteLn ('Сумма чисел кратных 3 = ', s);
ReadLn
end.
Эргономика (от греческого ergon – «работа», no-mos – «закон» или «закон работы») – это область знаний, которая комплексно изучает трудовую деятельность человека в системе «человек – техника – среда» с целью обеспечения эффективности, безопасности и комфорта трудовой деятельности. Поэтому исследования эргономики базируются на определении закономерностей психических и физиологических процессов, которые лежат в основе определенных видов трудовой деятельности, изучающие особенности взаимодействия человека с орудием и предметами труда.
Первые предпосылки развития новой науки о труде были положены в 1857 г. и основаны на изучении закономерности науки о природе, предложенной Войте-хом Ястшембовским.
Возникновению эргономики проблемы, связанные с внедрением и эксплуатацией новой техники и технологий в ХХ в., а именно рост травматизма на производстве, текучесть кадров и т. д., так как научно-технический прогресс начал набирать обороты и это требовало нового объединения наук при активном привлечении психологии, гигиены и многого другого.
Современная эргономика выступает как интегральная наука о трудовой деятельности, которая позволяет повысить трудовую эффективность путем оптимизации условий труда и всех процессов, с ним связанных. Под эффективностью труда в данном случае выступает не только высокая производительность труда, но и положительное влияние на личность рабочего, удовлетворенность своим трудом. Данные, полученные с эргономики используются при разработке рекомендаций в системе научной организации труда. Эргономика решает задачи оптимизации трудовой деятельности охране труда, обеспечивая его гигиену и безопасность труда. И если гигиена труда в эргономике организуется на основе требований физиологии и медицины, то эргономический аспект безопасности труда решается главным образом при непосредственном вмешательстве психологии. Нужно отметить, что эргономика занимается не только усовершенствованием условий труда при существующей технике, но и разработкой рекомендаций по проектированию новой техники и новой организации труда с позиций требований этой науки. Исходя из психологических, гигиенических и прочих условий труда, она вырабатывает соответствующие требования к технике, в том числе и к техническим средствам безопасности труда.
Современная эргономика исследует не только усовершенствование условий труда при существующей технической оснащенности, но и разработку рекомендаций новой организации труда с позиций требований этой науки.