ФОТОПЕЧАТЬС развитием цифровых технологий фотографии чаще всего стали храниться исключительно в виде файлов. Просматривать снимки на дисплее компьютера, фотокамеры, мобильного телефона удобнее, чем перелистывать альбомы или перебирать стопки отпечатков.Но именно в цифровую эру печать фотографий стала действительно доступной для всех и каждого. Больше не нужны проявители и закрепители, увеличители и кюветы – достаточно иметь цифровую камеру, принтер и некоторые знания, чтобы получать отпечатки, о которых фотолюбители могли только мечтать.Монохромная печать90% домашних задач, требующих наличия принтера, связано с монохромной (одноцветной) печатью – принтер позволяет выводить на бумагу самые разные документы, содержащие текст и несложную графику. С листа удобнее, чем с экрана монитора, читать электронные книги и статьи. Школьникам и студентам часто и помногу приходится печатать доклады, рефераты и курсовые работы, причем иногда в нескольких экземплярах. Перед поездками нередко возникает необходимость распечатать карту местности с указанием маршрута движения – размещенные в Интернете картографические службы позволяют отправить такую карту на печать одним кликом.Монохромную печать часто путают с черно-белой. Эти типы печати похожи, поскольку для них используется только черная краска. Однако монохромная печать – это печать в оттенках серого цвета, она выполняется при струйных и лазерных принтеров. Черно-белую печать поддерживают только матричные модели.Лазерные принтерыЛазерные принтеры – самые распространенные монохромные печатающие устройства. Своим названием они обязаны наличию в них лазера, с которого изображение переносится на фотобарабан и электризует его. К наэлектризованным участкам барабана прилипает тонер (красящий порошок), барабан прокатывается по бумаге, перенося на нее частички порошка. Затем бумага с тонером нагревается в «печке», и расплавленный порошок «припекается» к бумаге.
program z1;
var a:array [1..20] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;
write('Массив: ');
for i:=1 to 20 do
begin
a[i]:=random(90)+10;
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
k:=k+1
end;
write(a[i],' ')
end;
writeln;
writeln('Среднее арифметическое нечётных элементов: ',s/k:0:1)
end.
Объяснение:
Задаём значение элемента с random
Проверяем значение элемента на нечётность, если условие истинно, то считаем сумму и количество элементов
Выводим значение элемента на экран
Выводим среднее арифметическое (результат деления суммы на количество) нечётных элементов