Определить максимальный элемент массива B среди b[i]>0 и его порядковый номер

const
  n = 50;
 
var
  b: array [1..n] of real;
  i, imax: integer;
  max: real;
 
begin
  for i := 1 to n do
  begin
    b[i] := (sin(i)) + exp(sin(i)) * cos(i);
    write(b[i]:8:2);
  end; 
  max := b[1];
  for i := 1 to n do
  begin
    if (b[i] > max) and (b[i] > 0) then
    begin
      max := b[i];
      imax := i;
    end;
  end;
  writeln;
  writeln('Максимальный элемент: ', max);
  writeln('Порядковый номер максимального элемента: ', imax);
end.

const
  n = 50;
 
var
  b: array [1..n] of real;
  i, m: integer;
 
begin
  writeln('Массив B:');
  for i := 1 to n do
    begin
      b[i] := (sin(i)) + exp(sin(i)) * cos(i);
      write(b[i]:8:4)
    end;
  writeln;
  m := 1;
  for i := 2 to n do if (b[i] > b[m]) and (b[i] > 0) then m := i;
  writeln('Максимальный элемент: ', b[m]:0:4);
  writeln('Порядковый номер максимального элемента: ', m);
  readln
end.

const n=50;
var
  i, imx: Integer;
  b, mx: Real;
begin
  mx:=-2;
  for i:=1 to n do begin
    b:=(Sin(i)+Exp(Sin(i)))*Cos(i);
    Write(b:8:2);
    if mx<b then begin
      mx:=b; imx:=i;
    end;
  end; WriteLn;
  WriteLn('Максимальный элемент: b[',imx,'] =',mx:8:2);
end.

const n=50;
var
  i, imx: Integer;
  b, mx: Real;
begin
  mx:=-1;
  for i:=1 to n do begin
    b:=(Sin(i)+Exp(Sin(i)))*Cos(i);
    Write(b:8:2);
    if mx<b then begin
      mx:=b; imx:=i;
    end;
  end; WriteLn;
  if mx>0
  then WriteLn('Максимальный элемент: b[',imx,'] =',mx:8:2)
  else WriteLn('Нет положительных значений');
end.