1. PascalABC.NET 3.3 const n=18; begin var a:=ArrRandom(n,0,100); for var i:=0 to n-1 do begin write(a[i],' '); if (i+1) mod 6=0 then writeln; end; writeln('Среднее арифметическое = ',a.Average); writeln('max = a[',a.IndexMax,'] = ',a.Max); writeln('min = a[',a.IndexMin,'] = ',a.Min); end.
2. const n=18; var a:array[1..n] of integer; x,max,min,imax,imin,i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(101); write(a[i],' '); if i mod 6=0 then writeln; end; x:=0; max:=a[1]; imax:=1; min:=a[1]; imin:=1; for i:=1 to n do begin x:=x+a[i]; if a[i]>max then begin max:=a[i]; imax:=i; end; if a[i]<min then begin min:=a[i]; imin:=i; end; end; writeln('Среднее арифметическое = ',x/n:6:3); writeln('max = a[',imax,'] = ',max); writeln('min = a[',imin,'] = ',min); end.
Для того, чтобы выбрать флеш-накопитель и не покупать новый через неделю, необходимо обратиться к сайтам, на которых можно найти отзывы от производителях. Стоит внимательно отнестись к тому, как флешка будет вести себя при транспортировке и падении, так как часто при некачественном исполнении флешка перестает работать (зачастую на ней сохраняется важная информация). Флегку лучше всего заказывать в интернет-магазине, так как тогда при неисправности её легко можно будет заменить. Что касается размера карты, то лучше взять карту наибольшего объема и наилучшего качества , выделив наибольший возможный бюджет. Так флешка прослужит долго и размера её будет достаточно.
1 Кбайт = 2^10 байт
1 Мбайт = 2^10 Кбайт = 2^20 байт = 2^23 бит
2^28 бит = (2^28 / 2^23) Мбайт = 2^5 Мбайт = 32 Мбайт