Надо расщифровать текст с пустышечного шифра: дорогой друг, мой юный естествоиспытатель, не надо расстраиваться по всяким пустякам, плюй на все неприятности целиком и в частности, а лучше брось в колодец смрадный, этот груз сомнений, мысль вылетит синей птицей удачи, которая будет не подвластна пониманию простолюдина, зато ты поймаешь путеводную нить мысли удачной.

Для того, чтобы выбрать флеш-накопитель и не покупать новый через неделю, необходимо обратиться к сайтам, на которых можно найти отзывы от производителях. Стоит внимательно отнестись к тому, как флешка будет вести себя при транспортировке и падении, так как часто при некачественном исполнении флешка перестает работать (зачастую на ней сохраняется важная информация). Флегку лучше всего заказывать в интернет-магазине, так как тогда при неисправности её легко можно будет заменить. Что касается размера карты, то лучше взять карту наибольшего объема и наилучшего качества , выделив наибольший возможный бюджет. Так флешка прослужит долго и размера её будет достаточно. 

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.

Пример:
55 32 51 53 6 82
94 27 43 61 56 20
63 6 92 32 14 84
Среднее арифметическое = 48.389
max = a[7] = 94
min = a[5] = 6