1. Доступ к файлу sotr.pdf, находящемуся на сервере org.net, осуществляется по протоколу https. Запишите адрес указанного файла в сети Интернет. 12. Задание 17 № 237. Доступ к файлу spis.xml, находящемуся на сервере book.net, осуществляется по протоколу ftp. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет. А) .net Б) / В) ftp Г) spis Д) :// Е) book Ж) .xml 3. Доступ к файлу с именем com и расширением doc, находящемуся на сервере org.info, осуществляется по протоколу http. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла в сети Интернет. А) http Б) / В) :// Г) .doc Д) com Е) info Ж) org.

Https://org.net/sotr.pdf

ответ: ЕВДГЖБА

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandomReal(n,1,50);
  a.Println;
  var m:=a.Min;
  if m<>0 then
    for var i:=0 to n-1 do a[i]/=m;
  a.Println
end.

Тестовые решения:
n= 5
15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834
1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304

n= 10
14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769
2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,1,50);
  a.Println;
  var m:=a.Max;
  if m<>0 then
    for var i:=0 to n-1 do a[i]+=m;
  a.Println
end.

Тестовые решения:
n= 8
37 3 10 29 39 31 40 10
77 43 50 69 79 71 80 50

n= 10
9 47 40 19 20 37 21 39 26 31
56 94 87 66 67 84 68 86 73 78

Программа со статическим массивом:

Var
  M: array[1..32767] of real;
  Min: real;
  N, i: integer;
Begin
  Write('N = ');ReadLn(N);
  if (N <= 0) then
    WriteLn('Количество элементов должно быть положительно')
  else
  begin
    Write('Введите элементы массива в количестве ',N,' штук');
    For i:= 1 to N do
      Read(M[i]);
    Min := M[1];
    For i:= 2 to N do
      if (M[i] < Min) then
        Min := M[i];
    WriteLn;
    Write('Получившийся массив:');
    For i:= 1 to N do
    begin
      M[i] := M[i] / Min;
      Write(' ',M[i]);
    end;
  end
End.