Каково борьбы с негативнымипоследствиями для человеческого организма от использования компьютера?​

В процессе работы необходимо каждый час устраивать перерыв и выполнять разминочные упражнения. Нельзя использовать ноутбук, поставив его на колени. Есть вероятность попасть под воздействие сильной радиации. При работе на компьютере или ноутбуке рекомендуется одевать защитные очки для глаз. Выбирая монитор, отдайте предпочтение жидкокристаллическому варианту с надписью «Low Radiation», свидетельствующей о низком уровне излучаемой радиации.

  ​Влажная уборка помещения и наличие ионизатора послужат дополнительной защитой от электромагнитного излучения компьютера.​

  Не рекомендуется ставить системный блок компьютера на стол, а также сидеть около задней стороны монитора – в этих местах радиация имеет наибольшую силу излучения. При установке монитора, его заднюю часть следует развернуть к окну или стене.

  ​От компьютера и ноутбука исходит тепло, по этой причине в организме пользователя уменьшается количество кальция, вследствие чего у человека ухудшается состояние ногтей и волос.

  ​В комнатах, где расположены компьютер, ноутбук, телевизор и другая бытовая техника, по возможности, вместо пластиковых окон, лучше установить деревянные. Дело в том, что пластиковые окна не пропускают наружу радиацию, излучаемую этими приборами, она остается в помещении.

  ​И, наконец, не забывайте выключать компьютер по окончании работы.

Объяснение:

Var
   X,Y,K:integer;
   E,p:real;
Begin
Write('Сколько яблок в наличии: ');ReadLn(X);
Write('Сколько человек: ');ReadLn(Y);
Write('Сколько долларов за одно яблоко: ');ReadLn(E);
Write('Сколько рублей за один доллар: ');ReadLn(p);
if X mod 5 <> 0 then K:=X+5-(X mod 5)
else K:=X;
While K/Y<1.66 do K:=K+5;
WriteLn('Требуемое количество яблок: ',K);
WriteLn('Столько яблок придётся докупить: ',K-X);
WriteLn('Стоимость докупленных яблок: ',(K-X)*E*p:0:2,' руб.');
End.

Пример:

Сколько яблок в наличии: 1
Сколько человек: 3
Сколько долларов за одно яблоко: 50
Сколько рублей за один доллар: 0.05
Требуемое количество яблок: 5
Столько яблок придётся докупить: 4
Стоимость докупленных яблок: 10.00 руб.

1. Современное, короткое и быстрое решение

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(16,-20,80); a.Println;
  Writeln('S=',a.Where((x,i)->i.IsOdd).Sum)
end.

Пример
61 64 70 22 76 22 18 44 36 53 29 -9 42 -19 66 34
S=211

2. А вот так все еще учат в большинстве школ (стиль образца 70-80х годов века)

const
  n=16;
var
  i,s:integer;
  a:array[1..n] of integer;
begin
  Randomize;
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(101)-20;
    Write(a[i],' ');
    if i mod 2=0 then s:=s+a[i]
    end;
  Writeln;
  Writeln('S=',s)
end.