Заполнить матрицу А 5х5 случайными числами до 20 и далее выполнить задание:
1.Найти максимальный элемент на побочной диагонали;
2.Составить одномерный массив В из минимальных элементов каждой строки;
3.В одномерном массиве В найти среднее арифметическое и вывести на экран элементы массива В, которые больше среднего арифметического.

const n=5;var a:array[1..n,1..n] of integer;b:array[1..n] of integer;i,j,max,min,s:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to n do  begin   a[i,j]:=random(21);   write(a[i,j]:4);  end;  writeln; end;max:=a[1,n];for i:=2 to n do  if a[i,n-i+1]>max then max:=a[i,n-i+1];writeln('1. max = ',max);for i:=1 to n do begin min:=a[i,1]; for j:=2 to n do  if a[i,j]<min then min:=a[i,j]; b[i]:=min; end;s:=0;writeln('2. Массив B');for i:=1 to n do  begin write(b[i]:4); s:=s+b[i]; end;writeln;writeln('3. среднее = ',s/n);for i:=1 to n do  if b[i]>s/n then write(b[i]:4);writeln;end.Пример:Исходный массив:  10  19  15  17  10  12  12  10   1   5  17   8   8  14  15  12  11   8   0  13   2   2   4  10   61. max = 112. Массив B  10   1   8   0   23. среднее = 4.2  10   8