В массиве состоящем из 10 случайных элементов в интервале [-15;15],определить:
-последний максимум
-минимум среди положительных элементов
-количество max элементов.Pascal abc,9 класс

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.