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.