Имеется массив а из n произвольных чисел а(n), среди которых есть положительные, отрицательные и равные нулю. вычислить количество чисел, квадрат которых меньше 10. так, если а={2, 4, –3, 3, 5, –2, 1}, результат: 5 (это числа 2, –3, 3, –2, 1

Var   a : array of real;   i,  n, num  : integer; begin   write('количество чисел: ');   readln(n);   setlength(a, n);   for i : = 0 to n - 1 do   begin     write('a[', i + 1, '] = ');     readln(a[i]);   end;   num : = 0;   for i : = 0 to n - 1 do     if sqr(a[i]) < 10 then       inc(num);   writeln('таких чисел: ', num); end.

А)  100010,011101(2)  = 22,74(16) 0010  0010,  0111 0100     2            2                7          4 б)  1111000000,101(2)  =  3c0,a  (16) 0011  1100 0000,  1010     3            c            0              a в)  1100011,11(2)  =  63,c (16) 0110  0011,  1100     6              3            c г)  100011,111(2)  =  23,e (16) 0010  0011  1110     2              3          e

Program sum_nechet; var a: array [0..100] of integer; var b,i,c,k: integer; begin       randomize;       for i: =1 to 10 do       begin               a[i]: =random(10);               writeln(a[i]); // это можно не писать, просто чтобы видеть числа в массиве, если интересно.       end;       c : = 0;       b : = 0;       for i: =1 to 10 do       begin               if a[i] mod 2 = 0 then               b : = b + a[i]               else               c : = c+ a[i];       end;       writeln('нечетных ' , c);       writeln('четных ' , b);       k: =0;       for i: =1 to 10 do       begin               if a[i] = 0 then               k: = k+1       end;       writeln('нулей ' , k) end.