Составьте
программу вычисления в массиве B(N)
минимального среди положительных
элементов и его номера

const N=10;var a: array [0..N] of integer;    i, m: integer;begin     for i := 0 to N do         a[i] := random(1000) - 500; { Надо же что-то в массив закинуть =) }     for i := 0 to N do         if ((a[i] > 0) and (a[i] > a[m])) then            m := i;     writeln('[', m, '] => ', a[m]);end.

min:=b[1];max:=b[1];for i:=1 to n do beginif min<b[i] thenmin:=b[i];if max>b[i] thenmax:=b[i];max:=b[i];end;