Уменя 3 со всеми. 1)задана последовательность из 10 чисел на интервале (-100, 120 найти сумму и количество нечётных чисел, сумму двухзначных чисел , и количество чисел, кратных трём. 2)задана последовательность из 20 чисел. найти сумму чётных чисел, сумму и количество двухзначных чисел, и количество отрицательных чисел. 3)задана последовательность из 15 чисел.найти сумму и количество отрицательных чисел и сумму и количество трёхзначных чисел. большое тому, кто !

  program al;   var   a: array[1..32000] of integer;   buf: integer;     i,n,min,max: integer; begin    writeln('n=');     readln(n);     writeln('vvedite massiv=');     for i : = 1 to n do    readln(a[i]);     min: =1;   max: =1;   for i: =2 to n do      begin      if a[min]> a[i] then        min: =i;         if a[max]< a[i] then          max: =i;       end;   buf: =a[min];   a[min]: =a[max];   a[max]: =buf;     writeln('massiv posle obmena max< -> min');     for i: =1 to n do      write(a[i]: 4);   writeln;   end.

Var  a, sum,  i: integer; begin       writeln('enter number: ');       readln(a);       sum : = 0;       for i: =1 to a  do           begin              sum : = sum + n mod 10;               n : = n div 10 end;         end;       writeln('sum of digits = ', sum);       readln; end.