Имеется массив А из 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.