Напишите программку на языке программирования (либо составьте метод).Заполнить массив В,

 var i,max:integer;
      b:array[1..40] of integer;
begin
  randomize;
  for i:=1 to 40 do
     begin
      b[i]:=random(random(80))-30;
      write(b[i],' ');
    end;
    writeln;
    max:=b[1];
  for i:=1 to 40 do
     begin
      if b[i]gt;= max then
        begin
          max:=b[i];
         end;
    end;
  writeln('Наибольший элемент массива: ',max);
end.