ОТДАЮ ВСЕ ЧТО У МЕНЯ ЕСТЬ, ТОЛЬКО Номер 4 и номер 5

// PascalABC.NET 3.0, сборка 1128
const
  nn=20;
var
  b:array[1..nn] of integer;
  i,n,bmin,bmax:integer;
begin
  Randomize;
  Write('n='); Read(n);
  Writeln('Элементы массива');
  bmax:=-1000; bmin:=1000;
  for i := 1 to n do begin
    b[i]:=Random(51)-25;
    Write(b[i],' ');
    if b[i]<bmin then bmin:=b[i]
    else
      if b[i]>bmax then bmax:=b[i]
    end;
  Writeln;
  Writeln('Ср. арифметическое минимального и максимального: ',
    (bmin+bmax)/2)
end.

Тестовое решение:
n=15
Элементы массива
3 16 20 13 25 -2 13 -18 17 10 -7 -18 2 -20 -2
Ср. арифметическое минимального и максимального: 2.5

#include <cstdlib>
#include <ctime>
#include <iostream>
#include <iomanip>
using namespace std;

int main(int argc, char** argv) {

    int n,k,j=0;
    srand(time(NULL));
    cout<<"n = ";  cin>>n;
    cout<<"k=";  cin>>k;  cout<<endl;
    int a[n];
    for (int i=0; i<n; i++)
   {  a[i]=rand()/300;  cout<<setw(5)<<a[i];
      if (a[i]<k)  j=i+1;
   }
   if (j>0)  cout<<endl<<"ind = "<<j;
   else cout<<endl<<"no elements";
   return(0);
}