3.как можно создать одноуровневый маркерный список?
4.как можно создать многоуровневый неумерованный список?
5.каким образом из фрагмента текста можно сделать текст в три колонки?

Заполнение массива случайными числами:

Var
   A:array[1..10000] of real;
   n,i:integer;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('A(',n,'):');
For i:= 1 to n do
    Begin
    A[i]:=random*(2*n+1)-n;
    Write(' ',A[i]:0:1)
    End;
WriteLn;
i:=0;
For n:= 1 to n-1 do
    if (A[n] > 0)and(A[n+1] > 0) then i:=i+1;
WriteLn('k = ',i);
End.

Ввод с клавиатуры, без массива:

Var
   A,A2:real;
   n,k:integer;
Begin
Write('n = ');ReadLn(n);
Read(A);
k:=0;
For n:= 2 to n do
    Begin
    A2:=A;
    Read(A);
    if (A > 0)and(A2 > 0) then k:=k+1;
    End;
WriteLn('k = ',k);
End.

Using System;

public class Test
{
    public static int Main()
    {
        Random rnd=new Random(DateTime.Now.Millisecond); // иниц. датчика
        int n=Convert.ToInt32(Console.ReadLine());
        double[] Arr=new double[n];
        double e, max=0;
        for(int i=0;i<Arr.Length; i++)
        {
            Arr[i]=(int)(rnd.Next(1,99));
            Console.Write(Arr[i]+" ");
            e=Math.Abs(Arr[i]);
            if(e>max) max=e;
        }
        Console.WriteLine("\nmax={0:f1}",max);
        return 0;
    }
}

Пример
15
56 9 1 94 34 42 46 71 2 27 91 37 54 31 66
max=94.0