Напишите программу на языке программирования (или составьте алгоритм). заполнить массив в, состоящий из сорока элементов, случайными целыми числами из интервала [–30; 50] и найти максимальный элемент.

 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]>= max then
        begin
          max:=b[i];
         end;
    end;
  writeln('Максимальный элемент массива: ',max);
end.