Рынок устройств печати продемонстрировал положительную динамику. И пока не ожидают улучшения ситуации. Причин для пессимизма достаточно: это и очевидное замедление темпов роста экономического развития нашей страны, и отсутствие объективных предпосылок для изменения ситуации в ближайшем будущем. По мнению экспертов, приобретение печатающего оборудования будет происходить главным образом в рамках планомерной замены устаревших и выработавших свой ресурс устройств, а также в ходе замены монохромных моделей на цветные. Наиболее популярным типом устройств по-прежнему останется МФУ, а среди технологий печати безоговорочное лидерство сохранит лазерная. Кроме того, в нынешнем году ожидается дальнейший рост рынка услуг аутсорсинга печати.
1)Немного не понял фразу "меньше данного числа 2". Если найти сумму всех элементов, которые меньше двух в массиве размером 20 элементов, то это
var s,i:longint; m:array[1..100] of integer; begin for i:=1 to 20 do read(m[i]); s:=0; for i:=1 to 20 do if m[i]<2 then s:=s+m[i];
writeln(s); end. 2) var i:longint; m:array[1..100] of integer; begin for i:=1 to 20 do read(m[i]);
for i:=1 to 20 do if (m[i] mod 5=3) then writeln(m[i]); end.
3) var a,b,i:longint; m:array[1..100] of real; begin read(a); read(b); for i:=1 to 20 do read(m[i]); for i:=1 to 20 do if (m[i]>=a) and (m[i]<=b) then writeln(i); end.
4)var o,s,i:longint; m:array[1..100] of integer; begin for i:=1 to 20 do begin read(m[i]); s:=s+m[i]; end;
o:=s div 20;
for i:=1 to 20 do if m[i]>o then writeln(m[i]); end.
прощения, если есть ошибки в синтаксисе. Нет возможности проверить в компиляторе
По мнению экспертов, приобретение печатающего оборудования будет происходить главным образом в рамках планомерной замены устаревших и выработавших свой ресурс устройств, а также в ходе замены монохромных моделей на цветные. Наиболее популярным типом устройств по-прежнему останется МФУ, а среди технологий печати безоговорочное лидерство сохранит лазерная. Кроме того, в нынешнем году ожидается дальнейший рост рынка услуг аутсорсинга печати.