С клавиатуры вводится последовательность натуральных чисел. Ввод данных завершается нулем. Записать числа в массив. Дополнить

массив значениями сумм: S_negative – отрицательных элементов и

S_positive – положительных элементов.

Язык С++

На первый вопрос: 
1.Химические
2.Психофизические 
3.Физические
На второй вопрос:
ИКТ-технологии для информационной среды системы образования
На третий вопрос:
Санитарно-эпидемиологические правила и нормативы устанавливают санитарно-эпидемиологические требования к размещению, устройству, оборудованию, содержанию, противоэпидемическому режиму, профилактическим и противоэпидемическим мероприятиям, условиям труда персонала, организации питания пациентов и персонала медицинских организаций.
На четвертый вопрос:
Гигиенические нормативы — установленные исследованиями допустимые максимальные или минимальные количественные и (или) качественные значения показателя, характеризующего тот или иной фактор среды обитания с позиций его безопасности и (или) безвредности для человека.
На пятый вопрос:
технические требования это требования которые нужно использовать при работе с техникой , монитор даёт плохое влияние ( лучами) на глаза и мозг облучая их .

Program zadacha;

Const n = 10;

Type mas=array[1..n] of integer;

Var s,i,k,d:integer;

m:mas;

Begin

s:=0;

k:=0;

readln(d);

For i:=1 to n do

read(m[i]);

For i:=1 to n do

if m[i]<d then begin

s:=s+m[i];

k:=k+1;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (Это решение для случая если вы вводите сразу весь массив чисел)

Program zadacha;

Const n = 10;

Var s,i,k,d,m:integer;

Begin

s:=0;

k:=0;

readln(d);

for i:=1 to n do begin

readln(m);

if (m < d) then begin

s:=s+m14;

k:=k+1;

end;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (А это решение для того случая когда вы вводите элементы по одному )