Максимальное и минимальное значение в массиве.

[makkarpov]

в одномерном целом массиве найти максимальное значение и номер последнего минимального среди положительных элементов до элемента меньшего s

[Randall C. Walker]

фрагмент

Max:=X[1];
Min:=X[1];
Nmin:=1;
for i:=2 to N do
  if X[i]>Max then Max:=X[i];
  if X[i]>s then
  begin
      if X[i]<=Min and X[i]>0 and i<=s then Nmin:=i;
  end;
writeln('Max=',Max:1:3,' Nmin=',Nmin);