1. Дан массив А из 10 элементов, которые заполняются случайным образом, числам от 0 100. Выведите массив на экран и найдите максимальный элемент массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.

1.const  N=10;type Vector = array [1..N] of integer;var B: vector;        max :integer;procedure IntVector(N: integer; var a: vector);begin  for var i := 1 to N do  a[i] := random(100);end;procedure OutVector(N: integer; a: vector);begin  for var i := 1 to N do   begin      write(a[i]:5);end;end;procedure Srav (a:vector; N,g:integer);beging := a[1];for var i:=1 to N doif (g < a[i]) then g:=a[i];writeln (g);end;Begin IntVector(N, B); writeln; OutVector(N, B ); writeln;  Srav(B,N, max); writeln;End.2. const  N = 10;type  Vector = array [1..N] of integer;var  B: vector;      r,v : real; procedure IntVector(N: integer; var a: vector);begin  for var i := 1 to N do     a[i] := random(20);end;procedure OutVector(N: integer; a: vector);begin  for var i := 1 to N do   begin    write(a[i]:5);  end;end;function srednee(a: vector; N: integer): real;begin  for var i := 1 to N do   begin   result := (result + a[i]);   end;  end;function kolvo(a: vector; g: real): real;begin  for var i := 1 to N do   if (a[i] < (srednee(a, N)/10)) then result := result + 1;end;begin  IntVector(N, B);  writeln;  OutVector(N, B ); writeln;  writeln ((srednee(B, N)/10):5:3);   r := kolvo(B, v);  writeln(r);end.