Сформировать массив из 10 элементов случайным образом взятых из множества {-2, 0, 2, 4, 6}. найти максимальный и минимальный элементы массива, вывести элементы и их порядковые номера на экран напишите как записать

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var cs:=Arr(-2,0,2,4,6);
  var a:=new integer[10];
  Randomize;
  for var i:=0 to 9 do a[i]:=cs[Random(0,4)];
  a.Println;
  Writeln('a[',a.IndexMin+1,']min=',a.Min);
  Writeln('a[',a.IndexMax+1,']max=',a.Max);
end.

Пример
0 0 -2 -2 -2 2 -2 6 2 4
a[3]min=-2
a[8]max=6

1) От 10 до 14

2) random(1, 10); random(-10,10); random(50,100);

3)

var a:array[1..100] of integer;

   i, p, o:integer;

begin

 p := 0;

 o := 0;

 for i := 1 to 100 do

   a[i] := random(-20, 20);

 writeln(a);

 for i := 1 to 100 do begin

   if a[i] >= 0 then p := p + 1

   else o := o + 1;

 end;

 writeln('Положительных: ' + p);

 writeln('Отрицательных: ' + o);

end.

4)

var a:array[1..20] of integer;

   b:array[1..20] of integer;

   i:integer;

begin

 randomize;

 for i := 1 to 20 do

   begin

   a[i] := random(1, 5);

   b[i] := random(1, 5);

   end;

 for i := 1 to 20 do begin

   if a[i] = b[i] then begin

   writeln('Номер: ' + i);

   writeln('Значение: ' + a[i]);

   end;

 end;

end.

Алфавит у нас состоит из трех букв (Б,У,М). Длина ряда 4 буквы. Количество возможных слов вычисляется по формуле N^m(н в степени м), где N - это длина алфавита, а m - длина ряда. Получаем 3^4=81. Дальше нужно исключить случаи, когда Есть три идущие буквы подряд, рассмотрим все случаи. 
1.Когда все буквы в слове одинаковые (, , );
2.Когда есть три буквы одинаковые (БББУ,УБББ,БББМ,МБББ, БУУУ,УУУБ,МУУУ,УУУМ,МММБ,БМММ,УМММ,МММУ.).
Тобишь всего исключений 12+3=15.
Вычитаем из количества всех вариантов 81-15=66.
ответ:66 различных слов.