Выберите все числа меньшие 100010. 33211^4

2626^7

1101002^3

3E7^16

Var
  n, m, p, k, sum, x: integer;
  s: string;
  c, i: byte;

begin
  write('Число: ');
  read(n);
  m := n;
  k := 0;
  while m <> 0 do
  begin
    p := m mod 10;
    K := K + 1;
    m := m div 10;
  end;
 
  Str(N, s);
  c := 0;
  for i := 1 to Length(s) do
    if s[i] in ['0', '2', '4', '6', '8'] then
      Inc(c);
 
  x := n;
  sum := 0;
  while (x <> 0 ) do
  begin
    sum := sum + (x mod 10);
    x := x div 10;
  end;
 
  writeln('Количество чисел: ', k);
  writeln('Количество четных чисел: ', c);
  writeln('Cумма чисел : ', sum);
end.

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] < 0 then
       Begin
       k:=k+1;
       A[i]:=2
       End;
    End;
WriteLn;
WriteLn('Количество отрицательных элементов: ',k);
Write('Новый массив:');
For i:= 1 to N do
    Write(' ',A[i])
End.

Пример работы программы:

Исходный массив: -1 -9 7 -2 -5 -3 -1 6 3 -6 9 8 -10
Количество отрицательных элементов: 8
Новый массив: 2 2 7 2 2 2 2 6 3 2 9 8 2