<span>Подберите примеры ситуаций в которых информация:
А)собирается - пипетка в граф редакторе
Б)копируется - копируем файл
В)обрабатывается - смержить слои в графическом редакторе
г)передаётся - отослать имейл
д)упрощается - сжатие изображения
е)принимается - получить почту
Ж)создаётся - ввод текста
З)разрущаетс - удаление файла
И)запоминается - сохранение файла
к)делится на части - разархивировать многофайловый архив
л)измеряется - посмотреть свойства файла
и)ищется
</span>- найти файл на компьютере
Напиши Program house; без каких либо знаков
Первый признак-компьютеризация и развитие болезней,связанных с ней.Например,компьютерная зависимость.
Также это видно по тому,что информация ценится так же,как физические вещи.
<em>var a1, b1, a2, b2, c, i, n:integer; </em>
<em>s:array[1..10000] of integer;</em>
<em>begin</em>
<em> read (n);</em>
<em> for i :=1 to n do </em>
<em> read (s[i]);</em>
<em> a1:=s[1];</em>
<em> for i :=1 to n do </em>
<em> if s[i]>a1 then </em>
<em> begin </em>
<em> b1:=i; </em>
<em> a1:=s[i]; </em>
<em> end;</em>
<em> s[b1]:=-63999;</em>
<em> a2:=s[1];</em>
<em> for i :=1 to n do </em>
<em> if s[i]>a2 then </em>
<em> begin </em>
<em> b2:=i; </em>
<em> a2:=s[i]; </em>
<em> end;</em>
<em> writeln (b1,' ',b2);</em>
<em> write (a1,' ',a2);</em>
<span><em>end.</em>
<em>Я там еще какую-то коронку писал, уже не помню, но что-то про лучшее.</em></span>