Не указано сколько раз оно должно принимать значение и каким образом вообще принять. Здесь оно 5 раз примет какие-то числа (каждое с новой строки), а потом выведет кол-во + и -. Значение 0 оно просто пропускает. Если все 5 чисел будут = 0, то и на выходе оно скажет, что было введено 0 значений с + и 0 значений с-.
Код (скриншот прилагается): var minus, plus, input, i: integer; begin minus:= 0; plus:= 0; for i:=0 to 4 do begin readln(input); if input > 0 then plus:=plus+1; else if input < 0 then minus:=minus+1; end; writeln(plus, ' positive and ', minus, ' negative numbers.'); end.
Вычислительная техника широко используется в современных системах обработки информации, для быстрого и точного определения координат судов, самолётов, космических объектов и т.п. Особенной областью применения вычислительной техники являются информационные поисковые системы, обеспечивающие механизацию библиотечных и библиографических работ и ликвидации больших справочных картотек. Быстро развивающейся сферой использования вычислительной техники является также работа банков, сберегательных касс и других финансовых учреждений, где применение ЦВМ позволяет централизованно реализовывать все расчётные операции.
Современный научно-технический прогресс характеризуется прежде всего не только высокой производительностью и научной организацией труда, но и широкой механизацией и автоматизацией умственной деятельности человека. Алгоритмизация умственной деятельности человека потребовала интенсивной разработки новых разделов математики, особенно математического моделирования, логики, лингвистики и психологии, создания специальных математических методов анализа, физических, биологических и социальных процессов, математическое исследование которых было ранее невозможно.
На opt-hardware.ru Вы найдете много полезной и исчерпывающей информации о закупках, торгах и тендерах на средства вычислительной техники!
Средства связи
Средства связи – это технические и иные средства, с которых решаются задачи передачи, приема, обработки и хранения информации. Средства связи, в зависимости от принципов и сфер деятельности, бывают радиорелейные, тропосферные, проводные, космические, оптические, лазерные и гидроакустические. Так же средства связи разделяют по характеру передаваемой информации на телефонные, телеграфные, телекодовые, телевизионные факсимальные, видеотелефонные, сигнальные и фельдъегерско-почтовые.
Связь играет немаловажную роль в производственно-хозяйственной деятельности общества и управлении государством, вооружёнными силами и всеми видами транспорта, а также в удовлетворении культурно-бытовых надобностей населения. Недостаточный уровень развития средств связи ведёт к уменьшению темпов экономического развития, роста национального дохода и уровня жизни населения.
На b2b-connection.ru Вы найдете много полезной и исчерпывающей информации о закупках, торгах и тендерах на средства связи!
Автоматизация
Автоматизация – применение машин, машинной техники и технологии в производстве с полным или частичным устранением человеческого труда. Автоматизация производства предполагает устранение тяжелого физического труда рабочих, перекладывая задачи на автоматизированное оборудование, функционирующего по принципу саморегуляции. Автоматизация управления – применение компьютерных средств для обработки и передачи информации в управлении производственными процессами. Автоматизация повышает производительность.
1. Const N = 10; Var i,S:integer; m:array [1..N] of integer; Begin randomize; S:=0; for i:=1 to N do begin m[i]:= random(201)-100; writeln(m[i]); end; for i:=1 to N do if m[i] mod 2 = 0 then S:=S+m[i]; writeln('Summa = ',S); readln; end.
2. Const N = 100; Var i,p:integer; B:array [1..N] of integer; Begin randomize; p:=0; for i:=1 to N do begin B[i]:= random(201)-100; writeln(B[i]); end; for i:=1 to N do if B[i] mod 3 = 0 then p:=p*B[i]; writeln('Proiz = ',p); readln; end.
Код (скриншот прилагается):
var minus, plus, input, i: integer;
begin
minus:= 0;
plus:= 0;
for i:=0 to 4 do
begin
readln(input);
if input > 0 then plus:=plus+1;
else if input < 0 then minus:=minus+1;
end;
writeln(plus, ' positive and ', minus, ' negative numbers.');
end.