Начнем с плюсов. Бесспорным достоинством компьютера, как технического изобретения, является упрощение и усовершенствование работы во многих отраслях жизни. Главным образом – это рабочие процессы в науке, архитектуре, промышленности. Именно программы, разработанные с помощью компьютерных технологий, позволили сделать важные открытия в области медицины, химии, физики, создать чертежи и графические разработки промышленного оборудования, зданий и сооружений. Развитие нанотехнологий тесно связано с компьютерами. «Бумажная работа» многих специалистов различных сфер деятельности была упрощена за счет появления ПК. Теперь нет необходимости хранить информацию в бумажном виде, создавая склады архивов, ведь есть электронные носители информации, подключаемые к компьютеру.МИНУСЫ Проблемы со спинойДолгое сидение за компьютером происходит, обычно, в неправильной, неудобной позе. Даже если изначально вы держите осанку, то уже через час, а то и раньше, начинаете сутулиться, выдвигая шею вперед или закидывая голову на спинку стула. При этом происходит искривление позвонков и передавливание сосудов. От этого чувствуется слабость, головокружение и даже боли в спине.Влияние на зрениеНапряжение глаз, обращенных в экран монитора, дает о себе знать постепенным ухудшением зрения. Поэтому не ленитесь делать специальные упражнения для глаз, и не сидите за компьютером слишком долго.ИзлучениеХотя всё еще ходят споры о вреде излучения от компьютеров, влияние электромагнитных волн от работающей техники можно ощутить уже после нескольких часов беспрерывной работы - чувствуется общая слабость и нервное напряжение.<span>Потеря времени</span>
Тихий - Евразия, Австралия, Северная Америка, Южная Америка, Антарктида.
Индийский - Африка, Австралия, Евразия, Антарктида.
(Тихий океан и Индийский океан вместе омывают - Евразия, Австралия, Антарктида)
А будет равно 10, так как а > 5, но b не больше a
type diapazon=-20..60;
var a: array [1..15] of diapazon;
i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if (max/min) > 2 then writeln('Верно') else writeln('Неверно');
end.
