Задание: дописать полностью код программы приведенный в примере. Пример: count:=0; while n > 0 do begin n:=ndiv10; count:=count+1 end;

#include <stdio.h>

int main() 
{ 
   int n;
   printf("n = ");
   scanf("%d",&n);
   int a[n];
   int b1=1, b2=1;

    for (int i = 0; i<n; i++) {
    printf("a[%d] = ", i);
    scanf("%d", &a[i]);
  }
   for (int i=0; i<n-1; i++) {
    b1 = b1 && (a[i+1]>a[i]);
      b2 = b2 && (a[i+1]<a[i]);
    }
    if (!(b1 || b2))
     for(int i=3;i<n;i+=4) {
      for(int j=i;j<n-1;j++) a[j]=a[j+1];
      n--; i--;
     }
   for (int i=0; i<n; i++)
    printf ("%3d  ", a[i]);
   printf("\n");        return 0;
}

Пример:
n = 15
a[0] = 12
a[1] = 16
a[2] = 19
a[3] = 20
a[4] = 24
a[5] = 28
a[6] = 31
a[7] = 33
a[8] = 35
a[9] = 40
a[10] = 46
a[11] = 50
a[12] = 55
a[13] = 57
a[14] = 60
12 16 19 20 24 28 31 33 35 40 46 50 55 57 60

var a: array[,] of real;
    b: array of real;
    i,j,ind,n,m: integer;
    p,s: real;
begin
  write('размерность массива:  n m  ');  readln(n,m);
  writeln('массив:');
  setlength(a,n+1,m+1);
  setlength(b,n+1);
  randomize;
  for i:=1 to n do
  begin
     p:=1; s:=0;
     for j:=1 to m do
     begin
       a[i,j]:=random(-50,50)/100;
       write(a[i,j]:6:2);
       if a[i,j]<0 then
       begin
         p:=p*a[i,j];
         s:=1;
       end;  
     end;  
     if s>0 then b[i]:=p
     else b[i]:=0;
     writeln;
  end;
  s:=b[1]; ind:=1;
  writeln('новый массив:');
  for i:=1 to n do 
  begin
    write(b[i]:8:4);
    if b[i]<s then
    begin
      ind:=i; s:=b[i];
    end;  
  end;
  writeln;
  writeln('индекс минимального элемента в новом массиве:  ',ind);
end.

размерность массива:  n m  4 3
массив:
 -0.04  0.21  0.14
  0.00 -0.38 -0.05
 -0.29  0.12  0.12
  0.15 -0.16  0.37
новый массив:
 -0.0400  0.0190 -0.2900 -0.1600
индекс минимального элемента в новом массиве:  3