var
  a: array [1..10] of integer;
  max, min, k, i: integer;

begin
  max := -15;
  k := 0;
  min := 0;
  for i := 1 to 10 do begin
    a[i] := random(30) - 15;
    write(a[i], ' ');
    if (a[i] >= max) then begin
      max := a[i];
      inc(k);
    end else
      k := 0;
    if (a[i] < min) and (a[i] >= 0) then
      min := a[i];
  end;
  writeln;
  writeln(max, ' - максимальный элемент; ', k, ' - количество максимумов; ', min, ' - минимальный положительный элемент.');
end.