Подсчитать количество отрицательных чисел среди чисел а, б, спрограммирование ветвящихся алгоритмов)

var

  a, b, c: real;

  count : byte;

begin

  read (a, b, c);

  count : = 0;

  if a < 0 then inc (count);

  if b < 0 then inc (count);

  if c < 0 then inc (count);

  wrireln (count);

end.

//pascalabc.net 3.2 сборка 1318 const   n=5;   var   ar: array[1..n] of integer;   i,indf: integer; begin indf: =-1; for i: =1 to n do   begin     readln(ar[i]);     if not(odd(ar[i])) then indf: =i;   end; if indf=-1  then   writeln('нет чётных')   else   begin     for i: =indf to n-1 do       ar[i]: =ar[i+1];     for i: =1 to n-1 do       write(ar[i]: 4);   end; end. пример ввода: 1 2 3 4 5 пример вывода: 1 2 3 5

//dev-c++ 5.11 #include < stdio.h> int binaryfounder(int*,int,int,int,int*); int main(void)   {int ar[100],n,res=-1,i,j,buf,val,arind[100];   scanf("%d",& n);   for(i=0; i< n; i++)   scanf("%d",& ar[i]);   printf("enter searching value: ");   scanf("%d",& val);   for(i=0; i< n; i++)   arind[i]=i;   for(i=0; i< n-1; i++)   for(j=i+1; j< n; j++)     if(ar[i]> ar[j])     {buf=ar[i];     ar[i]=ar[j];     ar[j]=buf;     buf=arind[i];     arind[i]=arind[j];     arind[j]=buf; }   binaryfounder(ar,0,n-1,val,& res);   if (res==-1)   printf("not found");   else   printf("found in position %d",arind[res]);   return 0; } int binaryfounder(int ar[],int left,int right,int val,int* res)   {int kar=(left+right)/2;   if (*res! =-1)   return 0;   if (left> right)   return 0;   if (ar[kar]==val)   *res=kar;   if (ar[kar]< val)   binaryfounder(ar,kar+1,right,val,res);   if (ar[kar]> val)   binaryfounder(ar,left,kar-1,val,res); } пример ввода: 5 1 2 3 4 5 4 пример вывода: found in position 3 //считаем с 0