Носи́тель информа́ции (информацио́нный носи́тель) — любойматериальный объект или среда[неизвестный термин] , содержащий (несущий) информацию (И длительное время сохранять в своей структуре занесённую в/на него информацию — камень,дерево, бумага, металл, пластмассы, кремний (и другие виды полупроводников), лента с намагниченнымслоем (в бобинах и кассетах), пластик со специальными свойствами (для оптической записи И — CD, DVDи т. д.), ЭМИ (электромагнитное излучение) и т. д. и т. п.Носителем информации может быть любой объект, с которого возможно (но не обязательно) чтениеимеющейся (записанной) информации.Зачастую сам носитель информации помещается в защитную оболочку, повышающую его сохранность и,соответственно, надёжность сохранения И (к примеру: бумажные листы — в обложку, микросхему памяти —в пластик (смарт-карта), магнитную ленту — в корпус и т. д.).Носители информации в быту, науке (библиотеки), технике (скажем, для нужд связи), общественной жизни(СМИ) применяются для: (распространения)создания произведений компьютерного искусства
// PascalABC.NET 3.0, сборка 1088 const nn=100; type tA=array[1..nn] of integer;
procedure MaxElem(n:integer; var m:ta; var mx:integer); var i:integer; begin mx:=m[1]; for i:=2 to n do if m[i]>mx then mx:=m[i] end;
var a:tA; i,n,amax:integer; begin Write('Введите количество элементов в массиве: '); Read(n); Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i]:=Random(101)-50; Write(a[i],' ') end; Writeln; MaxElem(n,a,amax); Writeln('Максимальный элемент равен ',amax); end.
Тестовое решение: Введите количество элементов в массиве: 15 Элементы массива -8 41 7 -40 -1 1 -18 5 -28 26 50 13 -42 39 -43 Максимальный элемент равен 50
Степени двойки.