Почему программа выдаёт только 2 значения? const n=10; var a: array [1..n] of integer; d,i: integer; pd: real; begin for i: =1 to n do a[i]: =random(5)+1; begin d: =0; pd: =0; if (a[i]=2) then d: =d+1; pd: =(d*100)/n; write(pd) end; end. программа написана в pasclabc.net

1.

а) Эргономика - это наука, изучающая взаимодействие между человеком и другими элементами системы для благополучия на рабочем месте.

b) Укажите угол наклона монитора: 15 градусов.

2.

1) человек лёг на стуле - его спина не ровная, плечи должны быть расслаблены и отпущены.

2) человек должен полостью прижать себя к стулу, чтобы ноги и спина были ровными, локти должны полностью лежать на столе.

3) его ноги находятся в прямом состоянии, а они должны быть под углом 90 градусов - ровно.

3. 1 поколение - ласковые машины

2 поколение - Полупроводниковые машины на транзисторах.

3 поколение - миникомпьютеры на интегральных схемах

4 поколение - По идее должно быть микропроцессоры, ну тогда Вычислительные системы на большой интегральной схеме

4. Не полная фотография, не видно вопрос

Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then    writeln('yes')  else writeln('no'); if num_sash=pri1 then    writeln('yes')  else writeln('no'); if mes_eg=1 then    writeln('egor-high')else  writeln('egor-low'); if mes_sash=1 then    writeln('sasha-high')else  writeln('sasha-low'); end.