Написать программу подсчитывающую вол-во цифр в заданном числе.

Var 
i,a:integer; 
ch:set of char; 
n:string;
Begin 
Write('Введите число '); 
Readln(n); 
ch:=['0'..'9']; 
for i:= 1 to length(n) do   
 if n[i] in ch then a:=a+1; 
case a of 
1:Write('В числе ',a,' цифра'); 
2..4:Write('В числе ',a,' цифры') 
else Write('В числе ',a,' цифр'); 
End;
End.  

Dev С++
#include <iostream>
using namespace std;

int main() {
    int i,n;
    cout<<"Введите число элементов в массиве: ";
    cin>>n;
    int a[n-1], j=0, amin=32767;
    for (i=0; i<n; i++){
        cout<<"Введите "<<i+1<<"-й элемент: ";
        cin>>a[i];
        if (amin>a[i] && a[i]>0) { amin=a[i]; j=i; }
    }
    i=n/2;
    while ((i<n) and a[i]>=0) i++;
    if (i>=n)
       if (a[n-1]<0) i=n-1;
       else cout<<"Нет подходящего элемента";
    if (i<=n-1) {
       int s=0, k=0, t;
       if (i>j) { t=i; i=j; j=t; }
       for (i=i; i<=j; i++) {
           s+=a[i]; k++;
       }
       cout<<"Cумма "<<s<<", количество "<<k<<"\n";
    }  
    system("PAUSE");
    return 0;
}

Тестовое решение:
Введите число элементов в массиве: 10
Введите 1-й элемент: 8
Введите 2-й элемент: 5
Введите 3-й элемент: -3
Введите 4-й элемент: 0
Введите 5-й элемент: 4
Введите 6-й элемент: 7
Введите 7-й элемент: -5
Введите 8-й элемент: 11
Введите 9-й элемент: 2
Введите 10-й элемент: -6
Cумма 8, количество 3
Для продолжения нажмите любую клавишу . . .

Задача 1.
const
  n=30;
var
  a,b:array[1..n] of integer;
  i,j,k:integer;
begin
  { самое сложное - создать такой массив,
    где положительные и отрицательные элементы будут случайно
    перемешаны и их будет по n/2.
    Если организовать ввод с клавиатуры, то это гораздо проще.
  }
  Randomize;
  { инициализация "флажком" - значением 1000 }
  for i:=1 to n do a[i]:=1000;
  { сначала генерируем n/2 случайных отрицательных на случайных местах }
  for i:=1 to (n div 2) do
  begin
    k:=Random(50)-50; { случайное отрицательное значение }
    { а теперь ищем случайное свободное место }
    repeat
      j:=Random(30)+1
    until a[j]=1000;
    a[j]:=k
  end;
  { теперь осталось сгенерировать n/2 случайных положительных чисел
    и разместить их на свободных местах }
  for i:=1 to (n div 2) do
  begin
    k:=Random(50)+1; { случайное положительное значение }
    { а теперь ищем свободное место }
    j:=0;
    repeat
      Inc(j)
    until a[j]=1000;
    a[j]:=k
  end;
  { и только отсюда начинается собственно задание }
  Writeln('Исходный массив');
  for i:=1 to n do Write(a[i]:4);
  Writeln;
  { j - количество обработанных отрицательных,
    k - количество положительных,
    а массив строим так, что отрицательные элементы на нечетных местах }
  if a[1]<0 then begin b[1]:=a[1]; j:=1; k:=0 end
  else begin b[2]:=a[1]; j:=0; k:=1 end;
  for i:=2 to n do
    if a[i]<0 then
    begin Inc(j); b[2*j-1]:=a[i] end
    else begin Inc(k); b[2*k]:=a[i] end;
  Writeln('Результирующий массив');
  for i:=1 to n do Write(b[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
  43  44  34  21  14 -26  32  35 -25  -8  42 -35 -37  12  45 -25  31   8 -16  -5   8 -25 -19 -15 -27 -16  12  26 -14 -41
Результирующий массив
 -26  43 -25  44  -8  34 -35  21 -37  14 -25  32 -16  35  -5  42 -25  12 -19  45 -15  31 -27   8 -16   8 -14  12 -41  26