Работа с одномерным массивом., подсчет полож и отриц., min и max Опции

[KekcMan]

Создать массив A[1..N]. Если количество положительных чисел меньше, чем отрицательных, то каждое положительное число увеличить на первое положительное значение в массиве. Определить минимальное и максимальное значения и их порядковые номера.

[Lapp]

Создать массив A[1..N]. Если количество положительных чисел меньше, чем отрицательных, то каждое положительное число увеличить на первое положительное значение в массиве. Определить минимальное и максимальное значения и их порядковые номера.

  for i:=1 to n do a[i]:= random(101)-50;
  p:=0;
  for i:=1 to n do if a[i]>0 then inc(p) else if a[i]<0 then dec(p);
  if p<0 then
    for i:=1 to n do
      if a[i]>0 then begin
        if p<0 then p:= a[i];
        Inc(a[i],p)
      end;
  max:= 1;
  min:= 1;
  for i:=2 to n do
    if a[i]>a[max] then max:=i
    else if a[i]<a[min] then min:=i;

Не проверял, набирал прямо тут.